





Ritorna in edicola 





VIDEO BASIC 

Il corso più entusiasmante su cassetta 
del Gruppo Editoriale Jackson per Commodore 64, 

VIC 20 e Spectrum 

200.000 copie vendute 


del 1 * I qkI cqIp dilla prima cdlzloot 


Il corso è composto da: 
20 fascicoli 
20 ca ssatta + 

5 splendidi raccoglitori 


Oggi è davvero fadle Imparare II 
Basic Con Video Batic II corso su 
cassetta che tf permette di 
rogrammare subito II tuo computer, 
fadle: tu chiedi, lui risponde, 
tu impari. Passo dopo passo. 

Sui Ivo schermo appaiono le 
domande, le risposte, gli esercii! e 


tu, senza fatica, presto e bene. 
Impari a conoscere 
# programmare il tuo computer, sia 
essa un VIC 20, un Commodore Ó4 © 
un Sinclair. 

Video Basic è In edicola. 

Provalo subito. 

Ogni lezione è uno spettacolo. 


Oggi II Basic si Impara così. 

Video Basic, Il corso su cassetto per 
parlare subito coi tuo computer. 

Vìdeo Basic 

per Imparare non solo il Bolle. 



Un'altra gande idea firmata 

GRUPPO EDITORIALE JACKSON 
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La piccola guida 
del principiante 


CW eoa 1 è un progressi? 

Il solo computer non può compiere alcuna operazione. 

Un computer possiede potenzialità* ma* come una macchina 
senza benzina* senza un programma non può funzionare. 
La maggior parte del programmi pubblicati su SUPER’ 
COMMODORE per i computer Commodore sono scritti In 
un linguaggio per calcolatori chiamato BASIC. Il BASIC È 
facile da imparare ed è disponibile, di serie, nel VIC 20 e 
nel Commodore 64. 

Programmi BASIC 

Ogni mese SU PERCOMM ODORE pubblica programmi sla 
per il VIC 20 che per il C64. Tanto per cominciare, se 
possiedi un VIC 20 copia solo l programmi scritti per la tua 
macchina* Indicati con 41 versione per VIC 20". Più tardi, 
quando avrai acquisito esperienza con il BASIC del tuo com- 
puter, potrai cercare di copiare e convertire programmi 
scritti per altri calcolatoti. Diversamente dal linguaggio cor- 
rente, che pud essere variamente Interpretato* il BASIC di 
solito ha un solo modo corretto per Indicare qualcosa. 

Ogni lettera* carattere o numero ha tl suo significato. 

Un errore banale è costituito dalla sostituzione del numero 
*0” con la lettera “0* oppure 11 carattere minuscolo *1" 
invece del numero "1" o ancora il carattere maiuscolo "B" 
con il numero "8*. 

Devi anche inserire tutta la punteggiatura, ì due punti (:) e 
le virgole* copiando esattamente ciò che appare sulla rivista. 
Gli spazi possono essere Importanti* Per essere sicuro copia 
U listato esattamente come si presenta. 


Ime e sono particolarmente soggette agU errori. Se un solo 
numero In una linea di Istruzione DATA d sbagliato, il calco- 
latore potrebbe “piantarsi" o distruggere il programma. La 
tastiera e il tasto STOP appaiono Inattivi e Lo schermo com- 
pletamente vuoto. Non lasciarti prendere dal panico. Non 
si è verificato alcun danno. 

Per riprendere 11 controllo devi spegnere Li computer e suc- 
cessivamente riaccenderlo. Od cancellerà qualsiasi pro- 
gramma presente in memoria, per cui è sempre necessario 
fare il SAVE del tuo programma prima di comandare lì 
RUN, 

Se II computer si ferma* puoi caricare {LOAD} Li programma 
e cercare l’eiTOre. 

A volte, quando 11 programma viene “lanciato", un'Istruzione 
DATA errata può causare un messaggio di errore. 

Il messaggio di errore potrebbe riferirsi alla linea di program- 
ma che legge (READ} il contenuto delle Istruzioni DATA. 


Dovresti prendere confidenza con 11 computer prima di pro- 
cedere alla copiatura del programma. 

Impara le istruzioni che si usano per memorizzare e richia- 
mare 1 programmi da nastro o da disco. Dovrai conservare 
una copia del tuo programma, se non vorrai copiarlo ogni 
volta che Io devi usare. Impara ad usare le funzioni di "edi- 
ting" della tua macchina* Come puoi correggere un errore? 
Puoi sempre ricopiare La linea e in questo caso devi sapere 
come procedere. Sapresti come inserire 1 caratteri In "Inver- 
se", I caratteri minuscoli e quelli di controllo? 

Tutto ciò è spiegato nel manuale del calcolatore. 


Le parsitesl e 1 caratteri speciali 

L'eccezione per questa regola di copiatura si presenta quan- 
do incontrerai Indicazioni tra parentesi* quali: "(GIU) 1 ** 
Ogni cosa compresa tra parentesi è un carattere spedale 
oppure un carattere che non può essere facilmente prodotto 
con la stampante. Incontrando un carattere di questo tipo 
fai riferimento alia “Piccola guida per l'input del program- 
mi"* 

Le Istruzioni DATA 

Alcuni programmi contengono una sezione* o delle sezioni* 
di istruzioni DATA* Queste linee di Istruzione forniscono le 
^.formazioni di cui li programma ha bisogno. 

Ir. alcuni casi le istruzioni DATA costituiscono 11 programma 
ver: * w»orio. m altri contengono codici grafici. Queste 


Ila veloce ripa— o 

1} Copia Li programma una linea alla volta* con ordine* 
Premi RETURN alla fine di ogni linea. Usa il tasto “DEL" 
per correggere gli errori, 

2) Confrontane linea copiata con quella presente nella rivi- 
sta* Puoi controllare l'Intero programma nel caso In cui 
si presenti un errore quando esegui il RUN. 

3) Accertati di aver inserito le istruzioni tra parentesi graffe 
con gli appropriati caratteri di controllo (fai riferimento 
alla "Piccola guida per l'Input dei programmi" che trovi 
In questa stessa rivista). 

Siamo spiacenti di non poter rispondere singolarmente alle 
richieste di informazioni circa 1 programmi, prodotti o servizi 
apparsi su SUPERCOMMODORE* 


4 SUI 
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EDITORIALE 



G iungono dagli Stati Uniti vod allarmistiche circa 11 presente e il futuro degli home 
computer e del piccoli personal computer. 

Q sono fabbriche che hanno dovuto cessare temporaneamente La produzione delle macchi' 
ne per smaltire Le scorte di magazzino. 

Forti le critiche mosse a proposito del modo di pubblldzzaie la presunta indispensabilità 
del computer nella casa oltre alle motivazioni, a volte senza troppo senso, con cui tutte 
k case produttrici hanno cercato di impone a chiunque Tattrezzo tecnologico. 

Da sempre Utalla si è mossa, ovviamente con tempi diversi, sul modello americano; si 
sono infatti riscontrate le stesse tendenze del mercato statunitense dica la diffusione, 
f utilizzo e quant’aitro attiene al mondo del personal computing. 

Ora dunque. In linea teorica* anche da noi c + è da attendersi una recessione che potrebbe 
contrarre la domanda e l’of fetta di questi prodotti. 

Ad una attenta analisi però si possono riscontrare sostanziali differenze di diffusione» 
facendo comunque le debite proporzioni, tra II mercato italiano e quello americano. 
Sono svariati gli esempi che possono essere dtatl a conferma della ancora scarsa diffusione 
del personal nel nostro paese. 

Un esempio per tutti potrebbe essere rappresentato dalla situazione nelle scuole dove, 
nonostante le pressioni esercitate da più parH il calcolatore non è ancora stato adottato 
massicciamente quale indispensabile ausilio didattico. 

Pare che da noi, oltre agli impieghi in ambiti ben precisi, Il calcolatore non abbia ancora 
trovato una precisa collocazione, del resto una delle principali caratteristiche risiede 
proprio nella possibilità di trasformarsi per assumere ruoli spesso molto diversi tra loro. 
Ogni utilizzatore deve cercare il migliore modo di sfruttare il proprio “attrezzo’ ponendosi 
sempre precisi obiettivi da raggiungere. 

Non d stancheremo mai di ripetere che non bisogna subire passivamente il calcolatore 
dandogli da elaborare ogni cosa che capita di trovare pubblicata, ma usare quel materiale 
come spunto creativo per elaborare nuove realizzazioni. 

Slamo convinti che siano ancora moltissimi gli utenti di “prima mano’ o persone che 
aspirano al possesso del personal computer, quindi ancora tanto lavoro da fare anche 
da parte nostra. 

Dunque, per la realtà del nostro paese, la recessione americana non d deve preoccupare 
più di tanto; da noi c'è ancora tanto da fare e, forse, gli home e I personal computer non 
hanno ancora conosduto la loro alba migliore. 

Per finire tutta la redazione augura ai lettori buone vacanze, raccomandando a tutti di 
non lasciare a casa, o in disparte troppo a lungo, il fedele “amico". 


Pietro DtO'Orca 



Per collaborare a SUPERCOMMODORE 


La rivista è Interessata ad articoli e programmi riguardanti la linea Commodore, di interesse 
generale, chiari ed esaurienti. Vi proponiamo una piccola “guida”, che ha particolarmente lo 
scopo di rendere più accurata la stesura dei vostri manoscritti: seguendo i nostri consigli si 
accresceranno le probabilità che le vostre buone idee e i vostri programmi vengano pubblicati. 


1 l'angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 

2 l’angolo superiore destro della prima pagina 
dovrà contenere la marca e il tipo di compu- 
ter al quale il lavoro sì riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri- 
chieste. 

il titolo dell’articolo, sottolineato, dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 

le pagine seguenti potranno essere battute 
normalmente, con la condizione che l'angolo 
superiore destro contenga un’abbreviazione del 
titolo e dei cognome, unitamente al numero di 
pagina. Per esemplo, Sprite Ed.../BrambÌlla/2. 
il testo dell’articolo dovrà essere battuto a 
macchina con interlinea di uno spazio e mez- 
zo, massimo due spazi; un margine di almeno un 
centimetro dovrà essere lasciato su entrambi i 
lati dello scritto. 

6 dovranno essere usati fogli In formato UNI 
A4 (cm. 21 x 29,7) e il testo, scritto in carat- 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio. 

7 nel caso 11 testo comprenda più fogli, questi 
dovranno essere uniti con un fermaglio o con 
un punto metallico aperto. 

8 avendo intenzione di spedire più di un artico- 
lo, questi dovranno essere Inviati separata- 
mente Insieme alla rispettiva copia su supporto 
magnetico. 

9 programmi brevi (meno di 20 linee) potranno 
essere inseriti nel testo, mentre programmi 
iù lunghi dovranno essere listati separatamente. 
ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il disco dovranno 
essere etichettati con il nome dell’autore, il titolo 
deU’articolo, il computer interessato e soprat- 
tutto le eventuali espansioni richieste. Come sug- 


gerimenti di programmazione si consiglia di usa- 
re le Istruzioni “CHR$< x )", “TAB( x )”, SPQ x 
)*, piuttosto che stringhe di manipolazione del 
cursore. 

Ad esemplo, per uno scroll di 5 linee l’istruzione 
“FORI = 1T05:PRINT:NEXT”. è molto più in- 
terpretabile di 5 Q Inverse; e, invece di una dozzi- 
na di simboli di cursore a destra, perché non 
usare semplicemente “PRINT SPC (12)”? Un ra- 
pido controllo del programmi per operare queste 
sostituzioni sarà molto apprezzato da noi e dai 
lettori. 

per maggior chiarezza, all’interno deU’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a Istruzioni BASIC (esemplo RE- 
TURN, LIST, RND, PRINT ecc.). Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 

n gll articoli ed i programmi potranno avere 
qualsiasi lunghezza: da una routine di una 
sola linea fino a programmi molto complessi. 

volendo includere diapositive, queste do- 
vranno avere formato 24x36, o 6x6. 
non prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 

editrici. 

il materiale non pubblicato non verrà re- 
stituito. 

Il compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all’interesse del testo e/o del programma (da un 
minimo di L. 50.000 a un massimo di L. 
300 . 000 ). Il pagamento vena effettuato In caso 
dì pubblicazione del lavoro* 


Inviate Idee e programmi a: 

SUPERCOMMODORE 
Viale Restelli, 5 
20124 Milano 

e saremo Llettaalmi di pubblicare 1 contri- 
buti migliori. 

La Redazione 
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Sprlt* «d ìbìmiIobì 

Quo/ è fa differenza tra uno SPRITE ed 
un animazione? Come posso realizzare, 
con II mio C64 , /'Immagine di un oggetto 
in movimento? 

Paolo Rotto 

IL In alcuni testi tradotti dall'americano 
LI termine SPRITE viene erroneamente 
Interpretato con “animazione", e ciò 
può ingenerare un po' di confusione. 
Lo SPRITE altro non è che un'Immagi- 
ne grafica dalle particolari caratteristi- 
che, disponibile sul C64 come su altri 
home computer, quali TI 99 o MSX. Gli 
SPRITE, chiamati anche MOB {Mova- 
ble Obyects), sono costituiti da un'im- 
magine di 24 per 21 pixel (sono quindi 
grandi poco meno di un blocco di 3 ca- 
ratteri per 3) e sono dotati di tre parti- 
colari caratteristiche: 

1. Possono essere visualizzati, a scelta, 
sopra o sotto altri caratteri o SPRITE, 
senza cancellare ciò che è visualizzato 
“sotto 11 lo SPRITE stesso. 

2. Possono essere spostati Indipenden- 
temente attraverso tutto io schermo, 
semplicemente con due Istruzioni PO 
KE, 

3. Possono essere ingranditi, con una 
singola POH E, In direzione orizzontale, 
verticale od in entrambe. 

L'animazione è Invece una particolare 
tecnica utilizzata per creare Immagini In 
movimento su se stesse. Una cosa £ in- 
fatti creare uno SPRITE con forma di 
omino e poi spostarlo attraverso lo 
schermo, ed un'altra cosa è fare In mo- 
do che l’omino, mentre viene spostato 
attraverso lo schermo, muova ad esem- 
pio le gambe per creare l'effetto della 
corsa. Solo In quest'ultimo caso A cor- 
retto parlare di animazione. Essa si ot- 
tiene con un procedimento molto sem- 
plice: come si sa, l 64 dati della forma 
di uno SPRITE vengono “pokati" In una 
serte di locazioni di memoria contigue, 
quindi si fa in modo, con un'opportuna 
POKE, che LI computer “sappia" dove 



andare a leggere questi dati quando do- 
vrà visualizzare lo SPRITE, 

Questo procedimento sfrutta un cosid- 
detto “puntatore": a seconda del valore 
contenuto in una certa locazione di me- 
moria, il computer “punta" ad un’altra 
locazione, dove sono contenuti l dati 
che d Interessano. E naturale a questo 
punto pensare di sistemare dei blocchi 
di dati di forma delio SPRITE legger- 
mente differenti tra Loro - secondo il 
principio sul quale si basano l cartoni 
animati - quindi attivare un solo SPRI- 
TE e modificarne periodicamente il 
puntatore al blocco di dati. In questo 
modo Io SPRITE potrà essere spostato 
attraverso lo schermo e contempora- 
neamente cambiare di forma in modo 
periodico, dando ad esempio l'Impres- 
sione dell 'omino che corre attraverso 11 
video. Naturalmente, sarà opportuno 
prevedere un apposito ddo di ritardo 
tra una modifica e l'altra del puntatore, 
per non creare uno u sgambetto” tanto 
veloce da non poter essere nemmeno 
rilevato dall 'occhio umano. 

N breve listato che segue mostra un 
semplice esempio di come realizzare 
l'animazione di un'esplosione: 

10 REM BLOCCO *1 

20 DATA 0,41,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
, 0, 0, 0,0,0, 0,0,0, ti, 41,0,0,0,0,0,0,0,0 
30 DATA 0,0,0,0,0,0,0,0,0,0,0,24,0,0,60,0 
,0,T 26, 0,0, 126,0,0,60,0,0,24,0 
40 BEH BLOCCO 42 

S0 DATA 0,0, 0,0, 0,0 ,0,1 6, 0,0, 16,0,2,24, 64 
, 3, 33, 1 92, 1,22 3, 12», 0,233, ìli ,0,233,0 
60 DATA 0,127,340,0,233,192,3,234,0,15,23 
5, 0,0, 233,121, 1,237, 192, 1,204, *6 ,3, 12 
70 OATA 0,2, 4, 0,0,4, 0,0, 0,0, 0,0,0 
■ 0 u» BLOCCO 43 

90 DATA 0,120, 0,0, 120,12,41,124, 24,26,1 26 
,120,31,127,240,13,233,240,13,255 
100 DATA 22 4, 7,233,224, 7,2 $5, 246,31, 233 , 2 
34,137,233,235, 255,235,240,253,231 
110 DATA 224,63,255,240,7,335,241,3,235,2 
52,7,335,234,7,253,63,1 3,235, 1 3 
120 DATA 13,222,3,31,30,0 
130 BEH BLOCCO |4 

140 DATA 0,0,0,0,112,0,0,56,0,0,54,64,14, 
0,96,13,0,224,6,21,0,0,14,0,0,120,0 
130 DATA 97,195, 13,113,1 93, 142, 224,1 ,1*9, 
0,34, 0,0, SS, 0,1, 24 ,96, 7, 0,1 12, 7, 126, 4 

1 

169 DATA 0,31, 16, 0,26, 0,0, 24, 0,0, 0,0 

170 UH CARICAMENTO BLOCCO H 

1 10 TORI *1 33IB7D1 3266+62 : RXADG : PO KB I , & : tf* 



XT 

190 beh Caricamento blocco t2 
300 TOBI - 1 2352T01 3 332 + 63 tREADD E PORRI, 0xN1 
XT 

310 BEH CARICAMENTO BLOCCO 11 
220 fOEI -U4 1 4TO1 241 6 + 61 iEEADDl PORSI ,Dl HE 
XT 

230 rem Caricamento BLOCCO 14 
340 EQUI. 1 24*070 1 24 60+6 2: BRADO ; PORMI , Di KB 
XT 

250 BEH ABILITA BPRITB *0 
260 V-3324»ifORXV+ll,l 
370 UH LO POStl IONA IN 100,100 
260 BAI NT" I CLR | * POREV , 1 OD : P0XEV+ 1 ,100 
290 UH MODI TIC A IL PUNTATORE P BULLI QUA 
TT» DIVERSE FORMI 
300 PORI *1 92701 92+1 
310 P0KX2O4O , I 
310 REX CICLO Dì RITARDO 
I3S roai+mteo S six? 

34 3 5HXTIiPOEr. r - T ,0 


Superturbo m prOfraul coa+ 
«•zelali 

Entusiasta delle possibilità offerte dai 
programma " Superturbo ", die avete 
pubblicato sul numero dJ Marzo, ho pen- 
sato dì velocizzare iì caricamento di alcu- 
ni programmi molto lunghi acquistati 
tempo fa, come il word processor “Easy 
Script" ed altri giochi in linguaggio mac- 
china . che impiegano molto tempo a ve- 
nir caricati da cassetta. Dal momento 
però che questi programmi partono 
automaticamente una volta caricati, non 
so come procedere per poterli risolvere 
“in turbo". Me lo potete spiegare? 

Attilio Magiietti 

R. I programmi per home computer si 
dividono sostanzialmente in programmi 
commerciali e programmi di pubblico 
dominio. 1 primi vengono sviluppati e 
commercializzati da software house o 
dalle stesse case produttrici del compu- 
ter (come nel caso del) 'Easy Script, svi- 
luppato dalla Precision sftw. e commer- 
cializzato dalla Commodore), In genere 
a un prezzo piuttosto elevato, che giusti- 
fica U lungo lavoro di programmazione 
svolto. I secondi appartengono al soft- 
ware pubblicato In generale da libri e 
riviste, e quindi acquistabile a un prezzo 
enormemente inferiore. Per poter ga- 
rantire il giusto margine di guadagno 



alle aziende produttrici di software, e 
quindi evitare U diffondersi di copie “pi- 
rata" dei programmi, questi ultimi ven- 
gono in genere protetti contro la dupli- 
cazione. Il tipo di protezione utilizzato 
varia da azienda ad azienda, ed addirit- 
tura da programma a programma nel- 
l'ambito della stessa azienda, dal mo- 
mento che la tecnica di protezione viene 
in genere sviluppata dagli autori del 
programma stesso e non dall’azienda 
che lo commercializza. 

La protezione può consistere in un sem- 
plice autostart ottenuto tramite linguag- 
gio macchina ed inibizione dei tasti 
RUN/STOP e RESTORE» oppure può 
essere più sofisticata e controllare il 
contenuto di certe locazioni di memoria: 
se questo non è il valore corretto, signi- 
fica che è stata compiuta qualche mani- 
polazione. ed il computer si resetta per- 
dendo il contenuto della memoria. 
Naturalmente, non tutti sono “pirati", 
ed è piò che lecito desiderare di crearsi 
una copia di back-up* o di velocizzare 
Il caricamento di un lungo programma 
che si è regolarmente acquistato. 

Le tecniche da utilizzarsi a questo fine 
richiedono però una buona conoscenza 
del computer ed almeno una certa di- 
mestichezza con il linguaggio macchina 
e la mappa di memoria: bisogna innanzi 
tutto capire come funziona la protezio- 
ne (che, come detto, è diversa caso per 
caso), quindi aggirarla con l'uso dì un 
buon assemblatore/disassemblatore 
come II “Supermonltor" da noi pubbli- 
cato recentemente. 

La cosa importante è capire se vi sia o 
meno un caricatore, che precede l! pro- 
gramma vero e proprio, ed analizzarlo 
attentamente. E quasi sempre quest' ul- 
timo che provoca L 1 autostart ed in gene- 
re - se in BASIC - contiene un'istruzio- 
ne SYS. Bisogna annotarsi II numero di 
questa SYS e quindi leggere gli indirizzi 
Iniziale e finale delle locazioni di memo- 
ria occupate dal programma vero e pro- 
prio, Per ottenere questo scopo occorre 
posizionarsi con il nastro all'inizio del 
programma e digitare II seguente pro- 
grammino: 

/ 

700 PfcltfT’ {CLR] CASI CEMENTO L/W ...” : GOSUBl 
»Q 

HO PI I NT" ? R E P l'Ut ARE IL tfAJTRO B 
130 IHP'JT'tìOMB DSL FI Li"] PI 
130 Tl*fJiIK*P*lMSD>+JS6*PÌlM54J-LPK£T| 
ì trQXE7e3,tfi/?5< 

1 40 POXt’fi 1 , ir-PEKKf 7S J| + 356 1 FOKE7ID , UH { 
Tl 13YS65469 

1 SO , 1 i POSITI! ,1 tPOÌÌU3j 1 i SYS654& 

I 

no triiSMa 

1 70 W2-PEEK £ 1 74: *256 + PJEEK [ 1 ?S) 

110 W’-PIEK n -35C"PEBX(1M) 

no ~2S6+r*iRi<42) 

300 PROGRAMMA IHIIIA A 

aio ntirt rmscE alla locjuiome i’w a 

aao uro 

250 LM-49152 

a*0 FOKI-LMTOLH-2 36 [SEX:iXlCIC*CK*A[K>KEE,À 

ioxt 

2 SO IFCR0 35693THESH: TERRORI OTLLt DAT 

ju*;brd 

1«0 nU*T"<K*.*lMTUM 

370 DATA 1 33, 1 47* 1 6 9,0, !J3,' 44. *45," SÉ 

HO DATA 208,3,76,19*247,201 

HO DATA 349,1 44,1 23, *44,1 13,301*3*76 

300 DATA 16,247,144*195,32,175,245,169 

210 DATA 96,133*113*32,212,343,165*116 

320 DATA 32,9,337, 165,1 SS, 32, 194*237 


330 DATA 33, 19, 234,133, 174, 165, 144, 74 
340 DATA 74,176, 10, 32,19, 231,132, 173 
350 DATA 1)1, 20l r |*l 63, 193, 133*174, 163 
360 DATA 146, 133,173*32, 310, 145*169,351 
370 DATA 37, 144,131,144, 32, 223*295, 20B 
3*0 DATA 3,76,51*246*33,19,331*170 
390 DATA 163, 1 44,74*74, I 76, 332, 1 31, I M 
400 DATA 147,340*13*160,0, 309 ,174,340 
410 DATA 6, 169,16,32,28, 354, 44, 545 
430 DATA 174,230,174,300.3,330,175*36 
430 DATA 144*10*203,33,239,237,33,66 
440 DATA 246*144*121 *76,4,247,74,176 
450 DATA 3,76*19,247,33,206,247,176 
460 DATA 3,76*19,247,32*23*341,176 
470 DATA 104,33*175*345*169,113,240,9 
4*0 DATA 33,234,247,144*11,240,90*176 
490 DATA 2l|* 32 *44, 247,240*13, 176,311 
500 DATA 165*144*41 ,16,56* 20*, 74* 22* 

510 DATA I* 24 0,17,224,3 *20|, 221*140 
530 DATA 1*177,1 78, 131*195, 200*177,1 71 
530 DATA 111*196, 176, 4*105,1*5, 204, 239 
540 DATA 160,3,177,174*160,1,311,170 
S30 DATA 170,160,4,177,178,160,2*241 
360 DATA 1 70,168,24,138,101 ,195,1 33,174 
570 DATA 152*101,196,133,175*169*195,133 
580 DATA 193,165*196*133,194,32,310,245 
990 DATA 96 


Questa routine - per C64 - chiede il 
nome del file da “leggere' 1 {se non si 
conosce il nome oppure U nome non 
esiste, basta premere “RETURN") e 
quindi visualizza l'indirizzo iniziale e fi- 
nale di qualsiasi programma registrato 
su cassetta. I numeri contenuti nelle 
istruzioni DATA costituiscono una rou- 
tine in linguaggio macchina, ottenuta 
modificando opportunamente la LOAD 
del sistema operativo del C64. Una vol- 
ta in possesso di questi dati fondamen- 
tali sarà semplice caricare II program- 
ma tramite II “ Superni onitor” e quindi 
trasferirlo su una cassetta di lavoro. Da 
quest'ultlma, salvo la presenza di altre 
protezioni, potrà tranquillamente esse- 
re ricaricato e salvato con il “Supertur- 
bo", quindi mandato in esecuzione con 
la SYS annotata precedentemente. 


Ui canon persoMlUiato 

Non sono mai riuscito a trovare, per il 
mio C64, un programmino che modifichi 
il cursore - ad esempio In un cerchio od 
uno linea - e che permetta di digitare 
normalmente qua/unque programma 
con il cursore modificato. Potete, per /a- 
vore , pubblicarlo su SUPERCOMMO - 
DORÈ? 

Davide La sparti 

IL li cursore altro non è che un caratte- 
re di spazio In reverse. Poiché i caratteri 
in reverie* all'Interno del set* sono con- 
traddistinti da codici uguali a quelli del 
caratteri normali sommati a 128* dal 
momento che b spazio ha II codice 32, 
Il cursore avrà N codice 32+128-160. 
Sarà quindi sufficiente ridefinlre - come 
un qualunque altro carattere - lo spazio 
in reverse. (1 programmino che segue, 
per 11 C64, rideflnlsce il cursore come 
una lineetta. Modificando gli otto valori 
della linea DATA è possibile fargli assu- 
mere qualsiasi altra forma. 

Il programma, una volta mandato in 
esecuzione* passerà a leggere immedia- 
tamente i caratteri in RAM, prima anco- 
ra di inziare a ridefinErlì. Lo schema si 
riempirà quindi di strani simboli, corri- 
spondenti al contenuto casuale della 
RAM in cui andremo a ricopiare 11 set. 


Immediatamente inizierà il trasferimen- 
to del caratteri da ROM a RAM, con la 
loro visualizzazione progressiva sullo 
schermo; si noti che quando viene rico- 
piato il 33 esimo carattere (I codici par- 
tono da 0), che è lo spazio, la parte di 
schermo non occupata dal set si pulisce 
istantaneamente, essendo appunto pie- 
na di spazi. 

Dopo aver trasferito tutto II set da ROM 
a RAM* si potrà assistere allò rideflni- 
zfone dello spazio In re verse, cioè del 
cursore. IL programma chiederà quindi 
se si intende utilizzare anche il set minu- 
scolo; quest'ultimo a premere i tasti 
SHIFT e Commodore per passare al 
minuscolo, prima di rispondere alla do- 
manda del computer. Un bel caos, ve- 
ro? Ritornate quindi sul maiuscolo* pre- 
mendo nuovamente SHIFT e Commo- 
dore e* se lo desiderate* continuate con 
li passare II RAM anche il set minuscolo. 
Si tenga comunque presente che lo 'sfi- 
zio' di avere II cursore ridefinito Implica 
- a meno di ricorrere a particolari artifizi 
giocando sul banchi di memoria la per- 
dita per J programmi in BASIC delia 
memoria a partire dalla locazione 
12288. Rimangono liberi quindi solo cir- 
ca 10 Kbyte. Volendo evitare questo 
spreco di memoria, occorre fare in mo- 
do che il chip VIC-ll 'veda' un altro ban- 
co di memoria da 16 Kbyte* spostando 
anche la mappa video in un’altra posi- 
zione. Il trasferire entrambi I set di ca- 
ratteri in RAM 'mangia' comunque co- 
me minimo circa 4 Kbyte di memoria 
BASIC se si utilizzi il banco 1. 


10 POKE 5 2,48: PQKE5 6 ,43 ; CLR : REM 
RISERVA MEMORIA PER IL SET DI 
CARATTERI 

30 FOKE53280 , 0 : FOKE53281 , 0: PRINT 
" {CLR J {WHTl " : S* 1 024 : PRINTCKRS 
(142] : REM SET MAIUSCOLO 
30 POK5S3272, (PEEK{53272) AND240] 
+72; REM LEGGE I CARATTERI IN 
RAM 

40 F0RK-DT0255: PQKES+I,K; I-I+l :N 
EXT: REM VISUALIZZA IL SET 
50 POKE5 6 3 34 , PEEK ( 55334 ) AND 2 54 ; R 
EH DISATTIVA IRQ TASTIERA 
50 POKE1 , FREMI JAND251 : REM DISAT 
TI VA L' I/O 

70 REM COPIA SET MAIUSCOLO DA RQ 
M A RAM 

BO FORI-0TQ2047: POKEI+1 2288 , PEEK 
U + S324B) :NEXT 

90 POKE1 , PEEK H)OR4i REM RIATTIVA 
L T I/O 

100 POKE55 334, PEEK (56334] ORI :REM 
RIATTIVA IRQ TASTIERA 
110 REM CURSORE • COD. 160 
120 REM RI DEFINISCE IL CURSORE N 
EL SET MAIUSCOLO 
7 30 POR I ■ OTO 7 : READD ; POKE ( I + 1 2 2 B B 
+ 7 60+8] i D : NEX T 

740 INPUT" {HOME]{ 70 GIU f ÌUSl AH 
CHE IL SET MINUSCOLO (S/N)**; 
A$ 

ISO IFA$O w S"THENEND 

760 PRINT" (CLRj": PRINTCHRS (1 4) j ; 

I -0 : FORK-OTO2 5 5 : POKBS+I , K ; I » 
I + 1 : NEXT: REM VISUALI ZIA 
170 FOKE56334, PEEK (56334) AND254: 

REM DISATTIVA IRQ TASTIERA 
180 POKE) , PEEK ( 1 ) AND251 : REM DI SA 
TTIVA L* I/O 
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190 REM COPIA SET MINUSCOLO DA R 
OH A RAM 

200 FORI-0TO2Q47:POKEI+l 4336,PEE 
ft (1+552963 :NEJCT 

210 POKEl r PBEK ( T ) 0R4 ; REM RIATTIV 
A L' I/O 

220 FOKE56334 ,PEEK(56334J0RÌ SREM 
RIATTIVA IRQ TASTIERA 
230 REM CURSORE - COD. 160 
240 REM RI DEFINISCE IL CURSORE N 
EL SET MINUSCOLO 

250 RESTORE : POR I * 0TG7 ; READD : POKE 
( 1 + 14336 + 160 * 8 } ,D : NEXT 
260 PRINT" {.HOME } l 12 GIU'}" 

270 OATAO, 0,0, 0,0,0,0,255 


CoQcittatButo di profriul 
BASIC 

Sono in possesso di un C64 e mi ri volgo 
a uoi per un problema apparentemente 
banale, ma die non sono ancora ritxscflo 
a risolvere Utilizzando il comando LOAD 
alV interno di un programma BASIC, per 
caricare e /andarne un altro . ho auufo 
cfeg/i spiacevoli ìnconuenfenfi: ho infatti 
notato che se il programma da caricare 
è più lungo dì quello residente nella me- 
moria del computer, esso viene caricalo 
so/o parzialmente * con righe modificate 
e. se lanciato , fi computer impasztsce. se 
gnalando gli errori più svariati in righe 
inesistenti, /omento un listato incora 
pren&ìbile . etc. 

Ho anche notato che, se il programma 
da caricare è M plù o meno” delle sfesse 
dimensioni di quello In memoria /sfesso 
numero dì blocchi occupati nel dischetto, 
per intenderci), esso viene caricato ed 
eseguito correttamente, ma i/ contenuto 
di a/cune uariabi/i (numeriche ed alfanu- 
meriche) viene modificato o cancellato, 
notare che i programmi in origine a tutta 
la questione sono scritti inferamente in 
linguaggio BASIC e che le uniche POKE 
utilizzate sono quelle per la gestione del 
colore del video e per la cancellazione 
del buffer della tastiera prima di un 'istru- 
zione GET. La riga da me utilizzata per 
eseguire V operazione è la canonica 
LOAD "nome progr. ", 8. 

P, Fluid 

E* Quello delPOverlay", cioè del cari- 
camento di un programma BASIC da 
parte di un altro programma BASIC, è 
un argomento spesso trattato superfi- 
cialmente da manuali e guide di riferi- 
mento, In generale, un overlay permet- 
te di caricare un nuovo programma nel- 
lo spazio usato dai precedente pro- 
gramma , mantenendo tutti I valori delle 
variabili uguali a quelli assunti nel pro- 
gramma precedente, con una limitazio- 
ne: il programma caricato deve essere 
di dimensioni uguali o Inferiori a quelle 
del programma caricatore. 

Dal momento che l'Istruzione LOAD ca- 
rica a partire dall'Inizio della memoria 
BASIC, Il secondo programma sovra- 
scrive rì II primo. Le variabili vengo- 
no immagazzinate subito dopo la fine 
del programma e quindi, se il secondo 
programma risulta più lungo del primo, 
esse andranno perdute. 


Riassumendo, si possono verificare i se- 
guenti casi (chiamiamo per semplicità 
programmare 1 il 'caricatore' e pro- 
gram- 

1. Il programma 1 è più lungo del pro- 
gramma 2: in questo caso verranno pas- 
sate al programma 2 tutte le variabili 
numeriche utilizzate dal programma 1. 
mentre le variabili dì stringa verranno 
passate solo se dinamiche. Per fare in 
modo che tutte le variabili di stringa 
vengano trattate dal computer come di- 
namiche è sufficiente aggi un vervi in co- 
da una stringa nulla: invece dì A$= 
“PIPPO*, occorrerà usare la forma 
A$* “P1PPQ*+*". in questo modo le 
variabili di stringa verranno immagazzi- 
nate nella parte alta della memoria, 

2. Il programma 2 è più lungo del pro- 
gramma 1: In questo caso andranno ine- 
vitabilmente perdute tutte le variabili 
utilizzate dal programma 1, ed II pro- 
gramma 2 sarà caricato solo in parte, 
per una lunghezza uguale al program- 
ma 1. 

Spieghiamo meglio: quando si carica da 
disco il programma 1, i puntatori del 
BASIC si regolano sulla lunghezza di 
uesto programma. L'istruzione LOAD 
I overlay avvia il caricamento del pro- 
gramma 2 più lungo, ma II BASIC crede 
ancora che la lunghezza del programma 
sia quella del primo. Il programma 2 
verrà quindi caricato solo in parte, e 
probabilmente con l'ultima linea carica- 
ta in forma indecifrabile. 

Un modo per ovviare a questi Inconve- 
nienti, e passare ugualmente I valori 
delle variabili ad un programma più lun- 
go, pud essere T utilizzo del buffer dì 
tastiera per riposizionare 1 puntatori del 
BASIC sugli stessi valori che si hanno 
dopo l'accensione del computer, e pro- 
cedere - sempre -con l'utilizzo del buffer 
di tastiera - al caricamento del secondo 
programma. Per "passare 1 il contenuto 
delle variabili al secondo programma, 
un'idea pud essere quella di sfruttare 
l'area di memoria da 4 Kbyte che parte 
dalla locazione 49152: il contenuto di 
una variabile del primo programma - 
poniamo il caso forse più complicato di 
una variabile di stringa À$~ “PIPPO* - 
può essere immagazzinato in queste lo- 
cazioni con un'Istruzione del tipo: 

f ORt- 1 fDUNRftNKte 151+1. 

ASCIAI. 1,1» NE*r POKE4915I tl.Q 

L'inserimento del valore 0 alla fine della 
stringa serve come indicatore di fine 
stringa. Il secondo programma potrà ri- 
caricare la variabile di stringa A$ con 
il suo contenuto tramite un'istruzione 
del tipo: 

IO A- ASC IPEEJU49i52tI): 

[FA < >OTHErJAf-M+CHRS{A*H 1 GOTOIO 

Naturalmente questo sistema richiede 
che i due (o più) programmi vengano 
scritti appositamente con II proposito 
del proposito del passaggio di dati da 
un programma all' altro, 3 metodi per 


questo passaggio di dati sono numerosi 
e. soprattutto se si dispone del disk dri- 
ve, sembra molto più pratico l'utilizzo 
di un file sequenziale con il contenuto 
di tutte le variabili. 

Come rldefinlr* i caratteri 
C16 

Ho appena acquistato, dopo aver posse- 
duto pe * anr: un WfC 20. il nuovo 06 
e mi trovo in gran difficoltà nel riuscire 
a ridefinire caratteri, in quanto i/ ma- 
nuale fa soia cenno a questa possibilità, 
senza fornire alcuna indicazione su come 
realizzarla. Potete aiutarmi? 

Giovanni Spadari 

B. Inutile ripetere l'inadeguatezza dei 
manuali forniti dalla Commodore per 
chi intenda cimentarsi nella program- 
mazione... Quindi solidarizziamo con il 
lettore e ci affrettiamo a dare spiegazio- 
ni sui caratteri ridefiniti nel C 16, proble- 
ma che anche noi abbiamo dovuto risol- 
vere con notti... insonni durante la ste- 
sura del “Libro dei giochi per Commo- 
dore 16 e Plus/4", da poco uscito. 

Il set dì caratteri risiede nel C16 e 
PI us /4 a partire dalla locazione 53248, 
ovviamente In ROM, Il guaio è che una 
PEEK in queste locazioni non fornisce 
Il valore contenuto nella ROM, bensì 
quello contenuto nella RAM “sotto" la 
ROM, che però ... non c'I! 

TI sistema migliore per ricopiare IL set di 
caratteri in RAM, ed è quello che abbia- 
mo scelto per il suddetto libro, è sfrutta* 
re le routine In linguaggio macchina già 
disponibili nel computer attraverso il 
monitor. Si ottiene un trasferimento si- 
curo di tutto il set con una velocità im- 
pressionante. 

L'operazione viene eseguita con La tec- 
nica de II 'utilizzo dei buffer di tastiera, 
ed è molto semplice. Ecco un esemplo 
per trasferire in RAM il set di caratteri 
a partire dalla Locazione 14336: 

io (CUUHOlt CUI* HI 1IK|T Q4D Q QlfT 

)H0a|J GIU'JlM Giu 1 lì* IH [GOTO 

lì* 

sa Kum,^nuuii,ii;roMmg,i limai m 
1*2,1 3cl0KliaJ].U 

14 EKU 

49 imft4U)4 I ruMitvz»»jihiU3*i 

*0 l4»kU,lìinilll,ll 

a» ... 

H 

La Linea 10 stampa sul video le istruzio- 
ni necessarie per entrare in monitor, 
operare II trasferimento dei caratteri e 
ritornare al BASIC. La linea 20 pone 
nel buffer di tastiera un codice di HO- 
ME e quattro codici di RETURN, che 
verranno quindi stampati sopra le Istru- 
zioni visualizzale dalla lìnea 10. provo- 
cando la loro esecuzione. 

A questo punto il set di caratteri è stato 
copiato in RAM, ma bisogna dire al 
computer di iniziare a “vederlo* in quel- 
le locazioni. A ciò provvedono le linee 
40 e 50, mentre la 60 provvede a pro- 
teggere il nuovo set da sovrascritture 
da parte del BASIC. 

Nelle linee seguenti si potranno quindi 
ridefinire ì caratteri con il solito sistema 
delle READ, POKE e DATA. 
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A che serve 
l’home computer? 


di M. CrUtmlb Grizzl 




PotMdtrt mm hoMt compattr* o 
■MfHo ucora mm pcrtoul, è mm 

q*a*l no mtmtm* myrnhol M lat«ì- 
lettul« n por «ohi ptriOiVt 

L a pubblicità delle case costruttrici di 
computer e 1* in formazione di massa 
spingono un numero sempre maggiore 
di persone all'acquisto della magica 
macchinetta, promettendone una possi- 
bill là dì utilizzo costruttiva ed Insieme 
divertente. Per contro, stiamo già assi- 
stendo al “rigetto* del computer da par- 
te di chi se ne è presto stufato, per una 
serie di motivi che vanno dalle difficoltà 
incontrate nella programmazione al non 
sapere come usare la propria macchi- 
na. In realtà, la domanda che molti si 
pongono oggi come oggi è: “A che cosa 
serve un home computer?". 

Non è facile dare una risposta di carat- 
tere generale a questa domanda, in 
quanto i termini dei problema sono sog- 
getti ad ampie variazioni, a seconda di 
molti fattori, quali il livello culturale del- 
iziente, il suo campo di attività lavora- 
tiva, Il tipo di hobby che coltiva e l'incli- 
nazione del suo carattere. 

Si può cercare tuttavia di analizzare 11 
rapporto computer /utente, per tentare 
almeno di attribuirgli un salificato posi- 
tivo o negativo in alcuni casi generici. 
Nella gran parte dei casi il computer 
viene acquistato senza che ne venga 
sentita una necessità reale, ma solo dal 
momento che lo possiedono gli amici, 
per sentirsi "ai passo con 1 tempi", o 
perché “vi si è spinti dalla campagna 
pubblicitaria di massa, sia evidente che 
nascosta". 

Un numero quasi pari di persone — no- 
velli acquirenti di computer - non pos- 
siede Inoltre una cultura logico/ 
matematica sufficiente per programma- 
re personalmente La nuova macchina, o 


addirittura per essere in grado di copia- 
re o "far girare" correttamente pro- 
grammi commerciali o dì dominio pub- 
blico. L'effetto frustrante provocato da 
questa situazione non può che sortire 
un duplice risultato: da una parte Ynb- 
bandone di qualsiasi velleità di appro- 
fondimento dell'uso del computer, per 
passare airutilizzo completamente pas- 


sivo di videoglochi, e dal l'altra l 'abban- 
dono susseguente e totale del compu- 
ter, che viene a poco a poco - e silen- 
ziosamente per non sfigurare davanti 
ad amici al quali ha arriso un maggiore 
successo - lasciato nel “dimenticato- 
io". 

Data la situazione attuale di sviluppo 
della piccola Informatica in Italia, non £ 
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difficile affermare che il possesso del' 
l'home computer si giustifica generai 
mente come puro hobby, essendo molto 
particolari le situazioni in cui esso possa 
risultare effettivamente utile, anche per 
una semplice gestione casalinga. 

Per fare alcuni esempi. Il word proces- 
slng è senz'altro utilissimo e di gran co- 
modità. ma che senso può avere il suo 
uso da parte dell'Italiano medio che 
scrive tre lettere private all'anno? 

I programmi cosiddetti di gestione casa- 
linga, che si riducono quasi sempre a 
piccoli database per la rubrica del tele- 
fono, il conto in banca, o le ricette di 
cucina, sono pur sempre battuti in prati- 
cità e comodità dì utilizzo dai buoni e 
vecchi libri od agende, da secoli usati 
con successo: se* Infatti, per decidere 
quale delicatezza cucinare - o per cer- 
care un numero di telefono — , dobbia- 
mo accendere il computer, attendere 
che venga caricato — quasi sempre da 
nastro, con tempi lunghissimi — i) data- 
base, attendere quindi che esso carichi 
i dati precedentemente inseriti, e solo 
allora poter avere visualizzata sullo 
schermo la ricetta od Li numero di tele- 
fono che ci Interessa, vediamo facilmen- 
te la superiorità - In tempi medi di &c- 
cesso a un dato - del vecchio libro o 
agenda o, più “modernamente", sup- 
porto cartaceo, 

$1 potrebbe obiettare che la procedura 
sopra descritta è necessaria una volta 
sola: è possibile caricare II database del- 
la rubrica telefonica a) mattino, e lascia- 
re Li computer acceso fino a sera per 
poter così ricercare immediatamente un 


numero. In questo caso, tuttavia, ci si 
troverebbe ad aver acquistato non un 
computer, ma solo un'agenda telefoni- 
ca elettronica aJ prezzo di un computer: 
non si può certo dire di aver compiuto 
un buon Investimento! 

Per questi motivi, chi acquista il compu- 
ter pensando di utilizzarlo per scopi 
“pratici" deve per prima cosa valutare 
quali siano le proprie reali esigenze: nel- 
la stragrande maggioranza del casi la 
famiglia italiana non ha bisogno del 
computer per “arrivare ai 27", o peggio 
ancora per archiviare informazioni, 
quando il solo dieci per cento scarso 
della popolazione acquista quotidiana- 
mente un giornale. 

Il computer, per sua natura, può essere 
uno strumento molto utile, ma per po- 
terlo realmente essere necessita - sem- 
bra un paradosso, ma molti tuttora non 
lo capiscono - di un utente che abbia 
un reale necessità di utilizzarlo. 

Diverso è il discorso se il computer vie- 
ne considerato semplicemente come un 
hobby: è più “sincero" il rapporto con 
la macchina, si è in grado - senza aver 
fretta - di sviluppare, seguendo le pub- 
blicazioni ed I libri specializzati, quella 
cultura o “forma mentis" logico/ 
matematica tale da permettere di pro- 
grammare la macchina senza problemi. 
Grandi sono le soddisfazioni che II com- 
puter può offrire quando lo si program- 
mi da sé: dò che vediamo scorrere sul 
video è uno vera “creazione" del pro- 
grammatore, personale e scaturita di- 
rettamente dalia sua mente. Questo ti* 
po di utilizzo può “aprire la mente ", una 


volta lo si diceva dello studio del latino, 
richiamando quell'elasticità di ragiona- 
mento magari un po' arrugginita nelle 
persone di mezza età, oppure svilup- 
pandola nel ragazzini. 

Al contrarlo, soprattutto se l'utillzzato- 
re è un bambino in tenera età, il compu- 
ter può diventare uno strumento foriero 
di alienazioni e stupidità, se usato esclu- 
sivamente per passare ore ed ore da- 
vanti ad un videogioco: si svilupperanno 
certamente : riflessi, ma la mente ne 
risentirà, in mancanza dì esercizio co- 
struttivo. 

1 termini di questo discorso sono desti- 
nati a cambiare nell'arco di breve tem- 
po: quando anche In Italia saranno di- 
sponibili linee telefoniche affidabili per 
la trasmissione dati tra computer e com- 
puter, finalmente quest'ultimo potrà es- 
sere utilizzato In maniera proficua nella 
vita di tutti i giorni: sarà infatti possibile 
acquisire una gran quantità di informa- 
zioni di qualsiasi genere in brevissimo 
tempo, fare acquisti o prenotazioni di- 
rettamente da casa, spedire e ricevere 
lettere nello spazio di pochi secondi a 
migliaia di chilometri dì distanza, e tutta 
una serie di altri servizi che al momento 
possono ancora apparire “da fanta- 
scienza", 

Ben venga quindi il computer In tutte 
le famiglie, facendo però attenzione a 
non aspettarsi da esso ciò che non è In 
grado di offrire, e facendo altresì un 
buon esame di coscienza sulla propria 
preparazione ad utilizzarlo. 


rUBREHA JACKSON 



A Milano, 

in via Mascheroni 14. 
La prima software 
libreria italiana 




A Milano, in via Mascheroni 14. 

TW. 02-037585 


Vieni a trovarci: 

ti aspettiamo. 


Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraioamico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON 

La prima software - libreria italiana. 
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ABC del Linguaggio macchina: 

parte quarta 


di U. a Barsifhl 


la qufto quarto, «4 aitino, ap* 
putiaaito eoa la ao«tra brava 
raaaaflM I ntrodattlva aafll 

macchia* trattarono «i argo- 

ma laaarlra bravi programmi 
parnonaltuatr aalla roatftaa di 
gaatloaa dalla iatorradoal dal 
calcola torà. 


V ediamo, innanzi tutto» che cos'è 
una interruzione (In Inglese “Inter- 
nipt"). 

Una “Interruzione" è, »«mpllce mente, 
un segnale emesso da un componente 
del vostro calcolatore che ordina al 
microprocessore, che ne regola II fun- 
zi ona mento, di Interrompere qualsiasi 
funzione stia svolgendo (a meno che 
questa abbia una maggiore priorità) per 
eseguire determinati compiti, ben preci* 
sa ti e già noti, e quindi ritornare al pun* 
to in cui si era Interrotto, 

Tipicamente, l'operazione svolta dal 
microprocessore sarà rappresentata 
dall 'esecuzione del programma Inter- 
prete BASIC (non diverso da qualsiasi 
altro programma in linguaggio macchi* 
na)* AJJ 'arrivo di una Interruzione» gene- 
rata ad esempio da uno del temporizza- 
tori del chip CIA di Ingresso/ uscita» il 
sistema operativo sospende l'esecuzio- 
ne dell'Interprete BASIC e cede 11 con- 
trollo ad un altro programma In linguag- 
gio macchina, Il cui Indirizzo è contenu- 
to nella coppia di locazioni 788-789, Il 
cui compito principale consiste nel rag- 
giornare gli orologi interni del calcolato- 
re e scandire La tastiera, per rilevare 
l'eventuale pressione del tasti. Questo 
genere di Interruzione, generata» come 
detto, da uno del temporizzatori del 
chip CIA» avviene con periodo pari ad 
un sessantesimo di secondo; la frequen- 
za degli orologi interni del calcolatore è 
legata alla frequenza di alimentazione 
e pari» appunto, ad una oscillazione 
completa ogni sessantesimo di secondo, 
o “jiify"» come può essere rilevato chie- 
dendo che venga visualizzato 11 contenu- 



to della variabile TI» pari al numero di 
“jiffy" trascorsi dall'accensione del cal- 
colatore o dairazzeramento della varia- 
bile Tl$. 

Questo, però» non è il solo tipo di inter- 
ruzione che è possibile generare inter- 
namente al vostro calcolatore. Una in- 
terruzione è rappresentata anche dalla 
pressione del tasto RUN/STOP, che so- 
spende l'esecuzione di un programma 
BASIC, In questo caso fi compito di ri- 
prendere Il programma interrotto è la- 


sciato all'operatore» che può farlo bat- 
tendo CQNT una volta che abbia otte- 
nuto le Informazioni desiderate. È addi- 
rittura possibile alterare il contenuto di 
alcune variabili senza per questo impe- 
dire l'eventuale prosecuzione del pro- 
gramma; bisogna fare, però, attenzione 
a non alterare Li contenuto della *pila*, 
richiamando In maniera scorretta sotto- 
programmi od interferendo con even- 
tuali cicli FOR...NEXT lasdatì aperti 
dalla nostra interruzione da tastiera. 
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listato dal program»* I 
Corale* i Schifo 


C000 SEI 
C001 LDA $0314 


C004 STA JC020 

COO 7 LDA $0315 
eoo A STA $C021 

COODLDA # $19 

COOF STA $0314 

C012 LDA #$C0 

C014 STA $0315 

COITOLI 
C018 RTS 
C019 LDA $D021 

C01C STA $D020 
C01F JMP SEAB1 


; disabilita le Interruzioni 

; carica in accumulatore il contenuto della locatone 
788, contenente 11 byte meno significativo delHn diriz- 
zo delia prima istruzione del sottoprogramma di ri- 
sposta alle interruzioni 

; il contenuto del) 'accumulatore viene trasferito in 
corrispondenza del byte meno significativo del campo 
Indirizzo deli 'istruzione di salto incondizionato che 
chiude il listato del programma e lo ricollega alla 
routine di gestione delle interruzioni 
; viene letto il contenuto della locazione 789 * byte 
più significativo deli 'indirizzo suddetto 
; il byte in questione viene trasferito in corrisponden- 
za del byte più significativo del campo indirizzo della 
istruzione di JMP di cui sopra 
; viene caricato in accumulatore il byte meno significa- 
tivo dell’Indirizzo cui corrisponde la prima istruzione 
del programma che desideriamo premettere alia rou- 
tine di gestione delle interruzioni 
; li contenuto delt’accumulatore viene trasferito nella 

R rima delle due locazioni di memoria che Indicano 
Inizio della routine di servizio 
; acquisizione del byte più significativo deli 1 Indirizzo 
di cui sopra 

; il byte viene trasferito nella locazione 789 (byte più 
significativo della coppia di puntatori) 

; le interruzioni vengono riabilitate 
; rientro in ambiente BASIC 
; questa Istruzione costituisce, insieme alle due che 
la seguono, il vero e proprio programma aggiunto 
alla routine di servizio delle Interruzioni. Viene letto 
Il contenuto della locazione avente indirizzo decimale 
53281 {registro colore dJ fondo delia schermo) 

; il valore letto dairistruzione precedente viene trasfe- 
rito In 53280 (registro colore delia cornice) 

; si richiama il sottoprogramma originale di gestione 
delle Interruzioni. 


li SpHt** 


CGOO SEI 
COOL LDA $0314 

C004 STA $C0B1 

COO 7 LDA $0315 

COOA STA $C0B2 
COOD LDA #$28 


COOF STA $0314 

C012 LDA # SCO 

C014 STA $0315 

COI? LDA #$01 
C019STA $D01A 

CG1CLDA #$00 


; disabilita le Interruzioni 

; viene letto il contenuto della locazione 788 (byte 
meno significativo della coppia di puntatori alia 
routine dì risposta alle interruzioni) 

; Il byte letto dall'Istruzione precedente viene 
trasferito in corrispondenza del byte meno 
significativo del campo Indirizzo dell'istruzione di 
salto Incondizionato (JMP), che chiude la routine 
; analoga alla istruzione di C001 per quanto 
riguarda II byte più significativo (locazione 789J 
; analoga alla C004 per il byte più significativo 
; viene caricato In accumulatore (usando 11 formato 
Immediato) il byte meno significativo dell indirizzo 
della prima istruzione del programma In linguaggio 
macchina che si desidera aggiungere alla routine di 
risposta alle Interruzioni 

; il contenuto dell'accumulatore viene trasferito nel 
byte meno significativo della coppia di puntatori 
788/789 

; lettura del byte più significativo dell'indirizzo in 
questione 

; il byte letto daH'Istruzione precedente viene 
trasferito In 769 

: viene eguagliato a 1 l'accumulatore 
; Il contenuto dell'accumulatore viene trasferito 
nella fnterrupt Request Mask (maschera delle 
Interruzioni), settando II primo bit 
; viene azzerato i 'accumulatore 


Se, oltre al tasto RUN/STOP, viene 
premuto contemporaneamente anche il 
tasto RESTORE, l'Interruzione provo- 
cata ha effetti permanenti, la routine di 
gestione delle Interruzioni cancella lo 
schermo, azzera LI contenuto di tutte le 
variabili utilizzate e riporta il calcolatore 
alio - stato In cui «i trovava prima del- 
l'esecuzione di un programma senza 
però alterare 11 listato di eventuali pro- 
grammi BASIC in memoria. 

Oltre alle Interruzioni hardware prove- 
nienti dai temporizzatori del chip CIA e 
dalla tastiera, vengono generati "Inter* 
rupi" anche dal chip V1C-II , dedicato 
alla gestione della grafica, al verificarsi 
di determinate combinazioni connesse 
all'aspetto grafico del vostro calcolato- 
re, La principale di queste interruzioni 
viene chiamata “raster Interrupt* o "In- 
terruzione del raggio di scansione”. In 
questo articolo sfrutteremo sia 11 primo 
che quest’ultimo tipo di interruzione, 
per far svolgere al calcolatore de! com- 
piti che richiedono l’Impiego di pro- 
grammi In linguaggio macchina semplici 
e brevi (quanto minore è II loro tempo 
di esecuzione, tanto migliori saranno le 
prestazioni offerte} e la cui esecuzione 
deve avere frequenza molto aita, 

II modo più semplice e banale di sfrutta- 
re La routine di gestione delle interruzio- 
ni del vostro calcolatore consiste nel- 
rassegnarle tutti quel compiti che ri- 
chiedono una frequenza di esecuzione 
tanto aita da essere Improponibile 
l’Idea di svolgerli tramite un normale 
sottoprogramma BASIC. Se, ad esem- 
pio, desideraste visualizzare sullo scher- 
mo un cronometro al decimo od al cen- 
tesimo di secondo, per cronometrare lo 
svolgimento di un programma, e non vi 
accontentaste di veder scorrere con di- 
screta "uniformiti" le cifre dei minuti e 
del secondi, ma pretendereste che an- 
che quelle dei decimi o del centesimi 
scorressero senza apparente soluzione 
di continuità, l'unica soluzione consiste- 
rebbe nell 'aggi ornare le cifre del crono- 
metro tramite una opportuna routine in 
linguaggio macchina “innestata" sul sot- 
toprogramma di servizio delle interru- 
zioni. 

Per Illustrare questo primo aspetto del- 
l'argomento trattato ho preferito sce- 
gliere un esemplo molto più semplice e 
dì Immediata comprensione, anche per 
coloro che non hanno eccessiva dimesti- 
chezza con 11 linguaggio macchina. 
L'aspetto fondamentale del problema 
non è rappresentato, infatti, dalla fun- 
zione svolta dal sottoprogramma, bensì 
dalla tecnica utilizzata per inserire II 
programma Internamente alia routine 
di gestione delle interruzioni. 

Lo schermo del C64 è, come noto, sud- 
diviso In due grandi aree: un'area cen- 
trale “visibile" (sul cui contenuto, doò, 
il calcolatore può liberamente influire) 
ed una “cornice", sulla quale l’utente 
può agire solo cambiandone il colore 
(inserendo un valore compreso tra 0 e 
15, tramite una istruzione POKE, nella 
locazione di Indirizzo 53280). Analoga 
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mente, & possibile setta re 11 colore di 
fondo de Ira rea dello schermo visibile 
tramite la locazione 53281. 
Personalmente non gradisco affatto 
l'aspetto estetico della cornice (un re- 
faggio. Immagino, dell'era pionieristica 
del personal: ai miei tempi gli schermi 
erano monocromatici..,) e preferisco 
quindi uniformarne il colore al colore di 
fondo In tutti quel casi in cui non abbia 
alcuna utilità pratica mantenerli distinti 
Per farlo» però. In caso di successivi 
cambiamenti del colore di fondo è ne- 
cessario setta re il contenuto di DUE lo- 
cazioni Ho quindi pensato - a puro fine 
didattico - di realizzare un programma 
che mi permettesse di inizia li zza re la so- 
la locazione che controlla IL colore di 
fondo dello schermo (53281). 

Per farlo è sufficiente premettere al sot- 
toprogramma di risposta alle interruzio- 
ni una routine che legga II contenuto 
della locazione 53281 e lo trasferisca 
Inalterato nella 53280. Dal momento 
che la routine suddetta viene eseguita 
ogni sessantesimo di secondo (sei volte 
più rapidamente delle capacità di per- 
cezione dell'occhio umano), ogni modifi- 
ca al contenuto della locazione 53281 
si ripercuoterà (quasi) Immediatamente 
sulla locazione 53280. 

La tecnica che consente di Innestare la 
nostra routine su quella di servizio degli 
Lnterru pt consiste nel leggere il contenu- 
to della coppia di puntatori 788/789, 
che contengono l'indirizzo iniziale della 
routine di risposta, suddiviso nel con- 
sueto formato byte meno significativo/ 
byte più significativo, memorizzandolo 
in corrispondenza del campo Indirizzo 
delTultlma istruzione della routine che 
desideriamo far eseguire ad ogni Inter- 
ruzione. Deve trattarsi, naturalmente, 
di una Istruzione di salto Incondizionato 
(JMP) t che colleghl il nostro sottopro- 
grani ma alla pre-esistente routine di 
servizio. 



COI E STA $DQ12 

C021 LDA $D01I 
C024AND #$7F 

C026 STA SD011 


C029 CL1 
C02A RTS 


; vengono azzerati gli otto bit meno significativi del 
cursore del raggio di scansione (Raster Cursor) 

; viene caricato il contenuto della locazione 53265 
; al contenuto dell' accumulatore viene sommato 
“logicamente" il valore numerico #127 ($7F) 

; il risultato dell' operazione precedente viene 
reimmagazzinato in 53265. azzerando cosi il bit più 
significativo del registro cursore del raggio di 
scansione (che occupa l'ottavo bit della locazione 
53265), ma lasciando invariati t sette bit meno 
significativi della locazione (che controllano diverse 
opzioni grafiche, tra cui il formato “colore di fondo 
esteso") 

; vengono riabilitate le interruzioni 
l rientro in ambiente BASIC m- A 


N.B. - Questa prima sezione rappre- e viene mandata In esecuzione tramite 
senta la routine di attivazione del nuovo una Istruzione 5YS49152 da program- 
programmo di risposto alle interruzioni ma o da tastiera. 


C02B LDA $D019 
C02E AND # $01 

C030 BEQ $C0B0 

C032 STA $DÓ19 

C035 LDA SD012 
C038 BNE SC06A 

C03A LDA #$91 

C03C STA $D012 
C03F LDX # $0F 

C04Ì LDA $0340, X 
C044 STA $DG0Q*X 

C047 DEX 
C048 BPL $C04i 

C04A JMP $C0AA 


» viene letto 1] contenuto del registro delle richieste 
di interruzioni 

; al byte letto dal l'istruzione precedente viene 
applicato l’operatore di somma logica avente 
argomento I, in modo da azzerare il bit zero della 
Locazione suddetta, contenente II segnale di 
interruzione di cursore di schermo 
; se il risultato dell 'operazione precedente dà risultato 
nullo, si salta all'ultima Istruzióne del programma, 
che consente di ricollegarsi alla routine originale di 
risposta alle interruzioni 

; Il risultato dell'operazione di somma logica viene» 
in caso contrario, reimmagazzlnato nella locazione da 
cui à stato prelevato 

; vengono caricati in accumulatore gli otto bit meno 
significativi del registro cursore di schermo 
; se 11 contenuto dell'accumulatore è diverso da zero 
(cioè se 11 raggio di scansione si trova lungo lo 
schermo e non all 1 Inizio della pagina- video), si salta 
alla routine che controlla la seconda metà dello 
schermo 

; viene caricato In accumulatore 11 valore numerico 
145, che costituisce la frontiera tra la prima e La 
seconda parte dello schermo, nel modo In cui è stato 
suddiviso dal nostro programma 
; Il valore suddetto viene trasferito negli otto bit meno 
significativi del registro cursore di scansione dello 
schermo 

; viene caricato nel registro X 11 valore numerico 15, 
che servirà da Indice per 11 ciclo di lettura delle 
coordinate degli otto sprlte di cui, In realtà. Li 
Commodore 64 dispone 

; viene letto 11 contenuto della locazione avente 
Indirizzo pari a 83 2+ X (dove per X si Intende Li 
contenuto del registro X del microprocessore) 

; il valore contenuto In accumulatore viene trasferito 
nella locazione di Indirizzo pari a 53248+X, che 
corrisponde ad una coordinata (ascissa x, se il 
contenuto del registro X à pari; ordinata y, se X è 
dispari) dello aprite di Indice YHNTfX/2) 

; viene decre mentalo di una unità 11 contenuto del 
registro Indice X 

; se l'operazione precedente ha dato un risultato 
maggiore o uguale a zero (non negativo), si ridda a 
partire dalla Istruzione $C04L 
; si salta alla sezione conclusiva del programma, che 
si occupa di ripristinare il contenuto del registri 
alterati dal sottoprogramma aggiunto di risposta alle 
interruzioni ~ ~ 


N.B. - Questa seconda sezione del prò- e controlla I registri x e y degli otto 
gramma rappresenta la prima parte aprite reali per la prima parte dello 
della routine di risposta alle Interruzioni schermo. 
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COÓA LDA # $00 
C06C STA SD012 


C06F LDX #$0F 
C071 LDA $0350, X 


C074 STA $DG00,X 


C077 DEX 
C078 BPL $C071 

C07A JMP $COAA 


; viene azzerato l'accumulatore 
; il contenuto dell 1 accumulatore viene trasferito negli 
otto bit meno significativi del registro cursore di scan- 
sione 

; identica alla C03F 

; analoga alta Istruzione C041; in questo caso, però, 
l'indirizzo di base dei registri da cui viene prelevata 
l 'informazione non è 832, ma 848, vale a dire il secon- 
do gruppo di coordinate degli aprite 
; il valore letto dall 1 istruzione precedente viene trasfe- 
rito in uno dei registri delle coordinate degli otto apri- 
te reali, con le stesse modalità già viste per la sezione 
precedente 

; se il contenuto del registro Indice X non è negativo, 
si ricicla all' Istruzione $0071 
; ci ai ricollega, anche in questo caso, alla routine 
conclusiva del programma nUm d 


N.B. “ Questa terza sezione presenta 
una notevole simmetria con la prece- 
dente e costituisce la seconda parte del 
sottoprogramma di gestione delle in ter* 


ruzfonl, controllando gli otto sprìte vir- 
tuali al di sotto della linea d! demarca* 
zione posta a metà video 


C0AA PLA 

; viene estratto dalla pila (stack) il valore superiore; 
il puntatore alla testa della pila viene automa ticam e n* 
te aggiornato dopo che il valore è stato trasferito in 


accumulatore 

CO AB TAY 

; Il valore letto viene trasferito nel registro indice Y, 
ripristinandone il contenuto 

C0AC PLA 

C0AD TAX 

; il secondo valore prelevato dalla sommità della pila 
viene trasferito ai registro X 

C0AE PLA 

; viene estratto dallo stack il valore da assegnare al- 
raccumulatore 

C0AF RT1 

; rientro da Interrupt (RT1, ReTurn from Interrupt}. 
Vengono reimmagazzinati 1 valori originali del registro 
di stato (status flag register) e L due byte che compon- 
gono il Contatore dì Programma (Program Counte r, 


PC) 

COBO JMP $EAB1 

; d si ricollega alla routine originale di gestione delle 
interruzioni; valgono per questa istruzione tutte le 

ti 

considerazioni fatte per L'analoga istruzione conclusi- 
va del Programma 1 «*, E 


N.B, - Quest 1 ultima parte del program* oltre al registro di stato e al Program 
ma si occupa di ripristinare il contenuto Counter, prelevandone il contenuto dal- 
del registri Y, X e dell'accumulatore, lo Stack* 


Figiri I - OisposlxloM del registri virtuali a dal corrispondenti 
registri reali etillzxati dal Pteffiom 4 
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4 
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Occorre quindi caricare nella coppia dì 
puntatori suddetta l’Indirizzo di parten- 
za delta nostra routine, suddividendolo 
nello stesso modo, affinché, all 'arrivo di 
un ‘Interrupt", venga eseguito come 
programma di gestione 11 nostro breve 
sottoprogramma, che provvederà, a 
sua volta, a richiamare il sottoprogram* 
ma di risposta originale. 

E indispensabile rilevare due fattori* Il 
primo è rappresentato dal tempo di ese- 
cuzione della routine aggiunta, che de- 
ve, ovviamente, essere limitato, affìn* 
ché non venga rilevato alcun mutamen- 
to nel funzionamento apparente del cal- 
colatore. Sarà quindi necessario che ta* 
le sottoprogramma sia 11 piò breve pos- 
sibile ed abbia un funzionamento quan- 
to più semplice e lineare. 

Una seconda osservazione è legata al- 
l'alterazione del contenuto del puntatori 
788-789* Queste locazioni contengono, 
come detto, un Indirizzo a partire dal 
quale, alTarrtvo di una Interruzione, vie- 
ne eseguita la routine di servizio. Sup- 
poniamo ora di aver dato il via alla par- 
te delta nostra routine che si occupa di 
alterare il contenuto dell’indice in que- 
stione e che, nel bel mezzo dell'opera- 
zione, si verifichi una interruzione di 
qualche tipo (ad esemplo di aggiorna- 
mento degli orologi interni)* Ovviamen- 
te, In risposta all 1 Interruzione verrà ri- 
chiamata Istruzione corrispondente al- 
l'Indirizzo attualmente contenuto nelle 
locazioni suddette* Nel caso In cui tale 
indirizzo non corrisponda né alta prima 
istruzione della vecchia routine di rispo- 
sta né a quella del sottoprogramma ag- 
giuntivo, 11 funzionamento del calcolato- 
re sarebbe, inevitabilmente, compro- 
messo. 

E perciò necessario, quando si ha a che 
fare con la gestione delle interruzioni e 
del loro puntatori, premurarsi di rende- 
re il funzionamento del microprocesso- 
re momentaneamente insensibile alle in- 
terruzioni, disattivandole, tramite istru- 
zioni opportune, prima di aggiornare il 
contenuto dei puntatori e riattivandole 
ad operazione avvenuta, 
li nostro semplice sottoprogramma sarà 
quindi composto da due parti: la prima 
si premurerà di modificare opportuna- 
mente gli indirizzi connessi con ta rispo- 
sta alle interruzioni (non è Infatti possibi- 
le farlo in BASIC, dal momento che 
questo linguaggio non consente, ovvia- 
mente, di agire sulle procedure di rispo- 
sta agli “interrupt") e verrà eseguita tra- 
mite la consueta istruzione SYS* 

La seconda parte sarà invece rappre- 
sentata dal vero e proprio programma 
aggiuntivo, che verrà automaticamente 
richiamato in risposta alle interruzioni* 
Affinché il programma sla ampiamente 
utilizzabile, e non Interferisca con 11 fun- 
zionamento di eventuali programmi BA- 
SIC che se ne servono, porremo il codi- 
ce macchina che lo compone a partire 
dalla locazione 49152* Saremo quindi 
costretti, ancora una volta, a servirci 
della versione di “Supermonltor* riloca- 
ta a partire dall'indirizzo $2000 
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5 

Ascissa x 

53258 

842 

858 

5 

Ordinata y 

53259 

843 

859 

6 

Ascissa x 

53260 

844 

860 

6 

Ordinata y 

53261 

845 

861 

7 

Ascissa x 

53262 

846 

862 

7 

Ordinata y 

53263 

847 

863 

0 

Indice forma 

2040 

864 

872 

1 

Indice forma 

2041 

865 

873 

2 

Indice forma 

2042 

866 

874 

3 

Indice forma 

2043 

867 

875 

4 

Indice forma 

2044 

868 

876 

5 

Indice forma 

2045 

869 

877 

6 

Indice forma 

2046 

870 

878 

7 

Indice forma 

2047 

871 

879 

0 

Colore 

53287 

880 

888 

1 

Colore 

53288 

881 

889 

2 

Colore 

53289 

882 

890 

3 

Colore 

63290 

883 

891 

4 

Colore 

53291 

884 

892 

5 

Colore 

53292 

885 

893 

6 

Colore 

53293 

886 

894 

7 

Colore 

53294 

887 

895 


Llttato del 


C000SE1 

disabilita interruzioni 

C001 LDA $0314 

[788] - ACCUM 

C004 STA 5C084 

ACCUM - f49284] 

C00 7 LDA $0315 

[789] - ACCUM 

COOA STA $C0S5 

ACCUM — (49285) 

COOD LDA # $2B 

ACCUM - 43 

COOF STA $0314 

ACCUM [788] 

COI 2 LDA #$C0 

ACCUM — 192 

C014 STA $0315 

ACCUM — [789] 

COI 7 LDA #$01 

ACCUM — 1 

COI 9 STA $D01A 

ACCUM — [53274] 

C01C LDA #$00 

ACCUM — 0 

CO IH STA $D012 

ACCUM — > [53266) 

C021 LDA $D011 

(53265] - ACCUM 

C024 AND #$7F 

(ACCUM AND 127) — ACCUM 

C026 STA $D011 

ACCUM - [53265) 

C029 CU 

riabilita le interruzioni 

C02A RTS 

rientra in BASIC s 


(#81921 

Commentiamo brevemente, come di 
consueto, Li listato del programma. 

La prima Istruzione consente di disatti- 
vare le interruzioni, ponendo a uno il 
bit corrispondente (1) del registro di 
“flag". tn questo modo si impedisce che 
eventuali “intemipt* sospendano Tese- 
cuzìone del programma che si occupa 
di alterare gli indici che puntano alla 
routine di servìzio delle Interruzioni, 
provocando gii Inconvenienti sopra cita- 
ti. 

Le quattro istruzioni che seguono leggo- 
no il contenuto delia coppia di puntatori 
78 S/ 789 e lo trasferiscono in corrispon- 
denza del campo indirizzo della Istruzio- 
ne di JMP, che chiude II vero e proprio 
programma aggiuntivo di risposta alle 
Interruzioni* Dal momento che le istru- 
zioni STA in questione fanno riferimen- 
to agli indirizzi assoluti destinati a conte- 
nere I byte meno e più significativo del- 
l’Indirizzo, il programma che ne risulta 
non è rilocabile, Nel caso, cioè, in cui si 
desiderasse apportare aggiunte o modi- 
fiche al programma, sarebbe necessario 
accertare gli eventuali nuovi Indirizzi a 
cui corrisponderebbe U campo indirizzo 
della Istruzione di salto incondizionato 
conclusiva. 

Le successive quattro istruzioni carica- 
no nella coppia di puntatori 788/789 
l’Indirizzo della prima Istruzione del pro- 
gramma che si desidera far eseguire co- 
me risposta alle Interruzioni. Anche tali 
Indirizzi, suddivisi nel consueto formato 
(byte-plù-slgnlflcatlvo x 256 + byte* 
meno-stgnincativo), sono caratteristici 
del programma che si desidera premet- 
tere alia routine di gestione, e vanno 
quindi controllati in caso di modifiche. 
Le Istruzioni CLt (che azzera il bit T 
del registro di s flag*, riabilitando quindi 
le interruzioni) e RTS, che consente il 
rientro In BASIC, chiudono la parte di 
programma che si occupa di modificare 
I puntatori, in modo da inserire 11 pro- 
gramma che si desidera far eseguire al* 
P Inizio del programma di gestione delle 
Interruzioni e di collegarlo, quindi, alla 
routine originale. 

Questa prima parie, di conseguenza, 
non subisce modifiche in caso di cambia- 
mento del programma che si desidera 
Inserire, se non per quanto riguarda gli 
Indirizzi più volte citati* 

Le tre Istruzioni che concludono Li no- 
stro breve programma esemplificativo 
rappresentano il vero e proprio pro- 
gramma aggiuntivo. Le prime due non 
Tanno altro che trasferire In un registro 
il contenuto dell'altro, in modo da otte- 
nere Teff etto desiderato. Esse sono ca- 
ratteristiche del nostro esempio e non 
d soffermeremo quindi a commentarle 
oltre. 

Più Interessante è l’Istruzione di salto 
Incondizionato che chiude 11 program- 
ma. Esse è necessaria per ricollegare il 
programma inserito alla routine origina- 
le di servizio delle Interruzioni. Non sa- 
rebbe necessario, a rigor dì logica, spe- 
cificare un particolare indirizzo, poiché 


N.B* - Questa prima parte rappresenta 
la routine di attivazione dei programma 
e coincide sostanzialmente con la prima 
sezione del Programma 2. Fanno ecce- 
zione gli indirizzi ($C084 e $C085), 1 


quali ospitano ì byte meno e più signifi- 
cativo del campo Indirizzo della istruzio- 
ne di salto Incondizionato che ricollega 
Il nostro programma alta routine origi- 
nale di risposta alle interruzioni* 


C02B LDA $D019 

[53273] — ACCUM 
(ACCUM AND 1)— ACCUM 

C02E AND# $01 

C030 BEQ $C083 

Se il bit 2 del registro di flag è settato a uno, salta 
si l’Indirizzo specificato f$C083~ # 49283) 


C032 STA $D019 

ACCUM — [53273] 

[53266] — ACCUM 

C035 LDA $D012 

C038 BNE $C05D 

Se Z»0 T salta all’indirizzo Indicato ($C05D - 
#49245) 

C03A LDA #$91 

ACCUM — 145 

C03C STA $D012 

ACCUM — [53266] 

C03F LDX #$0F 

X- 15 

C041 LDA $0340, X 

[832+X] — ACCUM 
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G044 STA $DQOO,X 
C047 TXA 

am clc 

C049 ROR 


C04A TAY 
C04B LDA $0360,Y 
C04E STA $07F8,Y 
COSI LDA $0370, Y 
C054 STA $D027,Y 
C057 DEX 
C058 BPL $C04I 

COSA JMP $C07D 


ACCUM - [5324S+X] 

X — ACCUM 
CARRY 0 

Rotatone verso destra del contenuto dell 'accumula- 
tore. Come abbiamo visto nella seconda parte della 
nostra breve rassegna» ciò equivale a dividere un 
numero per due, con troncamento del resto. 
ACCUM — Y 
(864+Y] —ACCUM 
ACCUM — [2040+ Y] 

£880+ Y] — ACCUM 
ACCUM — [53287+Y] 

XI — X 

Se U bit N è nullo, salta all 1 istruzione avente Indirizzo 
esadecimale $C041 ( #49217) 

; salto Incondizionato all'istruzione di indirizzo SC07D 
(#49277) 


N.B, - Questa seconda sezione smista 
(nella prima parte» da $C02B a $C038) 
il corso del programma verso la sezione 
opportuna (normale routine di gestione 
delle Interruzioni, routine di controllo 
della parte alta o della parte bassa dello 
schermo). La prima parte della seconda 
sezione presenta delle modifiche di det- 
taglio rispetto alla analoga sezione del 
Programma 2 {indirizzi assoluti di salto). 
La seconda parte ($C03A-$C05A) con- 
trolla l registri virtuali per la parte alta 
dello schermo. Le modifiche rilevanti» 
rispetto alla versione precedente» ri- 
guardano, ovviamente, la parte di con- 


N.B - Questa terza sezione è, anche 
in questo caso, fortemente simmetrica 
rispetto alla seconda parte della secon- 


N.B. - Quest 'ultima parte del program- 
ma realizza il consueto ripristino dei 
contenuto dei registri Y, X e deli'aecu- 


(rollo del registri aggiunti ($CQ47- 
$0054} . Notate come il contenuto dei 
registro indice X (il cui valore varia da 
15 a 0) venga trasferito in accumulato- 
re, fatto ruotare verso destra - dopo 
aver preventivamente azzerato II bit di 
riporto (Carry), che viene coinvolto nel- 
la rotazione - in modo da dimezzare II 
valore dell'Indice. Il valore così ottenuto 
viene trasferito nel registro Indice Y, 
che viene utilizzato per le successive 
operazioni di gestione dei registri virtua- 
li di forma e colore» per i quali il valore 
dell'Indice deve variare da 7 a 0. 


da sezione, e provvede al controllo dei 
registri virtuali per la parte bassa dello 
schermo. 


m alatore, quindi si ricollega alla routine 
originale di gestione delle interruzioni. 


il programma dì attivazione costituito 
dalla prima parte del programma si pre- 
mura di Inserire in corrispondenza del 
campo Indirizzo dell'istruzione ì valori 
opportuni, desumendoli dalla coppia di 
puntatori 788/789, Il valore che abbia- 
mo specificato, però, corrisponde alla 
posizione delia routine di servizio delle 
Interruzioni in condizioni di funziona- 
mento standard, quando, cìoò, non si 
sia provveduto ad alterare 1 banchi di 
memoria controllati dal chip VIC-11 o la 
memoria di definizione dello schermo o 
del caratteri. 

L'operazione di attivazione si rende 
uindi necessaria. In modo da leggere 
contenuto attuale del puntatori e tra- 
sferirlo In corrispondenza dell'Istruzione 
conclusiva del programma, 

E quindi possibile “leggere* la routine 
di servìzio originale» utilizzando una del- 
le due versioni del nostro programma 
assemblatore {anche la versione origi- 
nale ha accesso alla gamma dì Indirizzi 
Indicata), tramite una Istruzione di di- 
sasse mbl aggio 

,D E ABI 

Una volta terminato l'inserimento del 
codice macchina In memoria, tramite la 
versione rilocata del nostro monitor, 
possiamo salvarne una copia su nastro 

0 disco tramite le istruzioni 

S COOO G022 “CORNICE & SCHERMO" 
o» rispettivamente 

S COOO C022 -CORNICE & SCHERMO* 
08 

1 file co»? ottenuti potranno essere cari- 
cati direttamente nella posizione voluta, 
leggendoli dalla periferica desiderata, 
specificando il suffisso *,1" dopo ^ nu- 
mero caratteristico della periferica stes- 
sa. 

Per attivare II programma sarò suffi- 
ciente utilizzare, anche In formato diret- 
to, l'istruzione SY549152. 

Ciò eseguirò la prima parte del pro- 
gramma, che altera gli Indirizzi contenu- 
ti nella coppia dei puntatori e nella Istru- 
zione di salto Incondizionato. 

Ora, ogni volta che si verifica una inter- 
ruzione la coppia 788/789 Indicherò 
LDA $D021 come prima Istruzione del- 
la routine dì servizio, li nostro breve 
programma verrò quindi eseguito ogni 
volta e prov vederÒ a richiamare auto- 
maticamente la vera routine di servi- 
zio. 

Potete provarne gli effetti, inserendo 
valori numerici compresi tra 0 e 15 nel- 
la locazione 53281 tramite una sempli- 
ce Istruzione POKE, anche da tastiera. 
La cornice assumerò ogni volta lo stes- 
so colore dello schermo, così come era 
immediatamente avvenuto al momento 
dell'attivazione del programma, nel ca- 
so in cui 1 due colori fossero differenti. 
Per disattivare II programma è sufficien- 
te premere contemporaneamente I tasti 
RUN/STOP e RESTORE, che, provo- 


C05D LDA 
C05F STA 
C062LDX 
C064 LDA 
C067 STA 
C06A TXA 
C06B CLC 
C06C ROR 
C06D TAY 
C06E LDA 
C071 STA 
C074 LDA 
C077 STA 
G07A DEX 
C07B BPL 


#$00 
ID012 
#$0F 
$0350, X 
$DOOO»X 


$0368, Y 
$07F8*Y 
$0378, Y 
$D027,Y 

$€064 


ACCUM — 0 
ACCUM — [53266] 

X ^ 15 

(848+ X) — ACCUM 
ACCUM - {53248+X] 

X — ACCUM 
CARRY - 0 

Rotazione a destra dell 'accumulatore 
ACCUM — Y 
[872+Y] — ACCUM 
ACCUM — [2040+Y] 

[888+ Y] — ACCUM 
ACCUM — [53287+Y] 

X-l — X 

Se il bit N è nullo» si salta alta locazione indicata 
{$C064- #49252) 4 


C07D PLA 

ACCUM - [STACK ($)) e S+l - -* 5. Dove 
STACK(S) rappresenta la locazione corrispondente 
alla sommità della pila, puntata dall'Indice S, che 
viene conseguentemente aggiornato 

C07E TAY 

ACCUM — Y 

C07F PLA 

ACCUM - [STACK {S)J e 5+1 — 5 

COSO TAX 

ACCUM — X 

COSI PLA 

ACCUM — [STACKfS)] e S+l ^ 5 

C082 RT1 

Rientro da interrup! 

C083 JMP JEAB1 

Salto Incondizionato all 'indirizzo indicato ^ s 
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cando un diverso tipo di interruzione, 
np ritmano i puntatori 788/789 ai vaio- 
li origina]! (oltre a riconfigurare altri 
aspetti del sistema, tra cui I valori inizia- 
li contenuti nei registri dei colori della 
cornice e dello schermo). 

Ristar iatimpt 

Per “raster interrupt" o “interruzione 
del raggio di scansione" al intende un 
tipo particolare di Interni pt, la cui emis- 
sione è legata ad un particolare aspetto 
della grafica dei sistema. 

L'immagine riprodotta su di un qualsia- 
si schermo TV è determinata da un 
“pennello elettronico" (in pratica un fa* 
sdo di elettroni opportunamente devia- 
to da un campo elettromagnetico), che 
percorre rapidamente lo schermo. Illu- 
minando determinati punti della super- 
ficie visibile del tubo catodico e trac- 
ciando, In questo modo, l'immagine. In 
condizioni di funzionamento normali U 
televisore riceve rinformazione sotto 
forma di segnale proveniente dall'an- 
tenna, decodifica il segnale e riproduce 
lìnformazlone, nel modo suddetto, sullo 
schermo. La rapida variazione del se- 
gnale ricevuto, e l'incapacità dell'occhio 
umano di percepire variazioni più rapi- 
de del decimo di secondo, creano T illu- 
sione della continuiti del movimento 
per le Immagini sullo schermo. In realtà. 
Il nostro “pennello elettronico" scandi- 
sce b schermo, partendo dall'angolo 
superiore sinistro e muovendosi orizzon- 
talmente verso destra, e durante 11 per- 
corso Illumina parti opportune delia ri- 
ga. Una volta raggiunto il margine de- 
stro li raggio scende di una riga e rico- 
mincia da sinistra. 

Queste evoluzioni del pennello elettro- 
nico sono visibili nella ripresa non sin- 
cronizzata di uno schermo TV da parte 
di una cinepresa o di una telecamera, 
sotto forma di righe orizzontali In movi- 
mento apparente lungo lo schermo. Il 
funzionamento dei monitor e dei televi- 
sori a colori non differisce di molto dal 
precedente {nella maggior parte dei ca- 
si i pennelli elettronici sono tre - uno 
per ciascuno dei colori fondamentali — 
Invece di uno). 

Il comportamento del televisore, nel ca- 
so Ln cui serva da monitor, differisce 
solo perché 11 segnale viene generato 
dal chip grafico del computer invece 
che essere ricevuto tramite una anten- 
na. 

Lo schermo del Commodore 64 è com- 
posto da 263 righe orizzontali, ma solo 
200 di queste sono visibili (le prime 50 
e le ultime tredici costituiscono Jl bordo 
superiore ed inferiore della cornice). 

Il pìQ volte citato chip grafico V1C-J1 di* 
spone di un registro cursore (raster regi- 
ster, In 53266) il cui contenuto Indica 
la riga di schermo nella quale si verifi- 
cherà la prossima interruzione. L'aspet- 
to pii) notevole di questo registro è rap- 
presentato dal fatto che, qualora venga 
inlzlallzzato invece che letto, esso indica 
la riga di schermo In cui si desidera che 
la prossima Interruzione si verifichi. 


Il resto del procedimento non differisce 
gran che da quanto visto in precedenza. 
In risposta all' interruzione viene richia- 
mata la solita routine, alla quale è ne- 
cessario premettere il programma in lin- 
guaggio macchina che si desidera far 
eseguire. 

Od che è necessario tener presente è 
che il programma in questione dovrà 
settare il registro cursore Ln corrispon- 
denza della prossima riga In cui si desi- 
dera che J 'interruzione avvenga, prima 
di richiamare il normale sottoprogram- 
ma di risposta alle interruzioni. 

Questa tecnica pud essere Impiegata 
per ottenere svariati effetti grafici; si 
può dire che l'unico limite alle possibili- 
tà di impiego dei “raster interrupt" è 
data dalla fantasia dei programmatori. 
Si può, ad esempio, cambiare il conte- 
nuto del registri di controllo del colore 
di fondo per creare aree dello schermo 
aventi colori di fondo differenti. Oppure 
si può agire sul registri di controllo dei 
formati grafici, mescolando così I vari 
formati su di una stessa schermata. Op- 
pure si può cambiare li contenuto del 
puntatori alla memoria di schermo (at- 
tenzione, però, in questo caso a control- 
lare opportunamente il contenuto della 
memoria colore) o, se si dispone di piò 
set di caratteri personalizzati, dei punta- 
tori al set di caratteri, mescolando così, 
su di una stessa pagina video, forme 
grafiche diverse. 

Va fatta una precisazione: le prestazioni 
del programma saranno tanto migliori 
quanto esso sarà piò rapido. Pertanto 
è Inutile pretendere di suddividere lo 
schermo In quattro o cinque aree oriz- 
zontali, alterando in ognuna il contenuto 
di una mezza dozzina di registri. 

Già suddividere lo schermo In tre aree, 
aventi formati grafici diversi, rappre- 
senta una prestazione non Indifferente. 
Una slmile esempio è dato dall'articolo 
di S. Leemon “Come utilizzare formati 
grafici diversi sul C64", già apparso in 
uno del numeri precedenti di “Super- 
vie" e riportato In uno del due volumi 



il “C64: suono e grafica", pubblicati 
dalla J.so fi. 

Ho preferito, in questo articolo, presen- 
tare un esemplo originale, corredato da 
un programma dimostrativo. L'opzione 
grafica da me scelta è rappresentata, 
ancora una volta, dagli iprite. 

Come è noto, il C64 dispone di otto di 
queste figure grafiche, rappresentabili 
in una matrice di 24 punti orizzontali 
per 21 verticali e di cui è possibile con- 
trollare la posizione, il colore, la priori- 
tà, rispetto al caratteri del testo che 
compaiono sullo schermo, e il formato 
grafico (normale o multicolore). 

QÒ è sufficiente nella maggior parte 
delle applicazioni; può darsi, però, che 
a volte si desideri disporre di un mag- 
gior numero di questi “folletti* benevoli: 
il programma in linguaggio macchina da 
me realizzato consente di raddoppiarne 
il numero, controllandone separata- 
mente la forma e la posizione, a patto 
che il movimento di otto di essi si svolga 
Interamente al di sopra di una determi- 
nata linea di demarcazione posta sullo 
schermo, mentre 1 restanti otto ne ri* 
mangano al di sotto, fig. 2 
La tecnica utilizzata dal programma per 
raddoppiare il numero degli sprite è 
particolarmente semplice. Tramite 11 
meccanismo delle Interruzioni raster, 
viene creata una suddivisione dello stes- 
so in due zone, separate da una linea 
di demarcazione prefissata dal pro- 
grammatore (In questo caso in corri- 
spondenza della 145esima riga orizzon- 
tale del video). Ciascuna serie di registri 
reali, la quale controlla gli effetti che si 
desiderano implementare, viene sosti- 
tuita da due serie di altrettanti registri 
virtuali, una delle quali controlla gli spri- 
te al di sopra della linea di demarcazio- 
ne, l'altra, ovviamente, al di sotto. 

Il meccanismo della duplicazione consi- 
ste appunto nel trasferire I dati daH'ap- 
portuna serie di registri virtuali nell'uni- 
ca serie di corrispondenti registri reali, 
prelevandoli dall’una o dall'altra serie 
di registri virtuali, In base alla posizione 
del raster. 

II programma proposto presenta note- 
voli limitazioni ed ha scopo essenzial- 
mente esemplificativo. Nella sua realiz- 
zazione si è tenuto conto di questo fatto, 
suddividendo il programma In quattro 
sezioni chiaramente identificabili (da 
$COOO a SC02A, da $C02B a $C04C, 
da $C06A a $C07C e da $C0AA a 
$C0B2), separate tra loro in modo da 
permettere successive evoluzioni del 
programma, con il controllo di alfre se- 
rie di registri degli sprite. 

In questa prima versione si è scelto di 
controllare l soli registri delle coordinate 
degli sprite. Per ragioni dì semplicità si 
è preferito rinunciare ad un controllo 
della ascissa x oltre la 255-eslma posi- 
zione (La qual cosa avrebbe comportato 
una notevole complicazione del proget- 
to, dal momento che tale valore è con- 
trollato da un singolo bit del registro 
53264 per ciascuno degli sprite, come 
abbiamo già visto nella seconda parte 
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dì questo mini corso}. Non vengono, 
inoltre, alterati l valori del colore dei 
singoli aprite e la rispettiva priorità per 
le due serie. Ciò significa che, suppo- 
nendo di aver otto aprite reali di otto 
colori diversi, avremo uno iprite di un 
determinato colore al di sopra e uno al 
di sotto della linea di demarcazione. 
Analogamente, non viene controllata 
l'attivazione dei singoli aprite, né la loro 
forma. Vale a dire, Il numero di aprite 
che compare sullo schermo è controlla- 
to dal programma che si serve della rou- 
tine, ma sempre pari ed equamente ri- 
partito tra le due zone dello schermo 
(compariranno tanti aprite al di sopra 
delia linea di demarcazione quanti ne 
compaiono al dì sotto}. 

In pratica, viene controllato II solo con- 
tenuto dei registri reali da 53248 (ascis- 
sa x dello sprlte 0) a 53263 (ordinata 
y dello sprlte 7}, in cui viene, di volta 
in volta, trasferito II contenuto delle due 
serie di registri virtuali da 832 a S47 e 
da 848 a 863 (per comodità si è preferi- 
to utilizzare il buffer di cassetta per i 
registri virtuali). 

Ovviamente, i valori Inseriti In tali regi- 
stri devono essere congruenti con le li- 
mitazioni viste per 11 programma. Nel 
caso, cioè. In cui venisse assegnato ad 
una ordinata y virtuale appartenente al- 
la prima sezione (da 832 a 847; 
y<*!45} un valore che travalica la li- 
nea di demarcazione, lo iprite corri- 
spondente scomparirebbe, semplice- 
mente, dallo schermo. La qual cosa sug- 
gerisce un metodo particolarmente effi- 
cace per avere un numero di sprite sullo 
schermo diverso per le due partì. 

Un analogo ragionamento sì può fare 
per qualsiasi registro y virtuale della se- 
conda sezione che contenga un valore 
inferiore a quello che canatterizzo la 
linea di demarcazione. 

Facciamo un esempio pratico. Suppo- 
niamo che lo sprlte 0 sta attivato (bit 0 
del registro 53269 posto a 1}, che 11 suo 
colore sla giallo (53287 uguale a 7) e 
che la sua forma sla indicata dal punta- 
tore corrispondente in 2040 (nel caso 
In cui la pagina di schermo ed il banco 
di memoria controllato dal chip video 
ViC-11 si trovino nelle condizioni stan- 
dard}. 

Le sue coordinate sono controllate dai 
due registri reali in 53248 (ascissa x) e 
53249 (ordinata y), con l'eventuale ag- 
giunta di 256 pixel verso destra nel ca- 
so In cui sia attivato il bit 0 del registro 
53264. I registri virtuali corrispondenti 
sono ospitati dalle locazioni 832 e 833, 
per la prima metà dello schermo, e da 
848 e 849 per la seconda. 

11 fatto che 11 bit 0 del registro 53264 
non venga controllato significa, sempli- 
cemente, che l'ascissa x dei due sprite 
In cui lo sprite 0 viene sdoppiato sarà 
o a destra o a sinistra della 255-esima 
posizione per entrambi. 

Per ragioni di rapidità di esecuzione 
(non dimentichiamo che stiamo operan- 
do su delle Interruzioni!) Il programma 
non è In grado, inoltre, di svolgere alcun 


controllo di correttezza sui valori inseri- 
ti, che dovranno quindi soddisfare alle 
limitazioni suddette. 

Vediamo in pratica cosa succede (sup- 
ponendo che il nostro programma in lin- 
guaggio macchina sìa stato attivato da 
una istruzione SYS49152}; il program- 
ma riceve un raster interrupt in corri- 
spondenza della prima linea dello scher- 
mo; accede alla prima sezione della rou- 
tine aggiunta al sotto programma di ri- 
sposta alle interruzioni e trasferisce nei 
registri reali 53248 e 53249 il contenu- 
to dei registri Ideali della prima serie 
(832/833). Supponendo che tali registri 
contengano i valori 200 e 120 
{<-145!}, vedremo apparire uno spri- 
te giallo nel punto di coordinate (200, 
120). Il successivo raster Interrupt vie- 
ne generato In 145 (a dò provvede la 
prima sezione, inizia li zzando opportu- 
namente il contenuto del registro del 
cursore di scansione, prima dì ricolle- 
garsi alla normale routine di risposta) . 
viene richiamata la sezione che control- 
la 1 registri virtuali oltre la 145 -e si ma 
posizione verticale e questa trasferisce 
negli stessi registri reali 53248 e 53249 
li contenuto della seconda serie di regi- 
stri virtuali (848/849), quindi fissa il 
successivo raster interrupt perché si ve- 
rifichi in corrispondenza della riga 0 e 
richiama la routine di risposta originale. 
Supponendo che le coordinate contenu- 
te in 848/849 siano ugual: a 50 e 200, 
lo sprite 0 scomparirà in (200, 120} e 
ne riapparirà uno della stessa forma e 
colore in (50.2001. Dato, però, che il 
raggio di scansione dello schermo ha 
una rapidità molto superiore alle capa- 
cità di percezione dell'occhio umano (a 
patto che il programma da noi aggiunto 
non risulti troppo sento), ciò che in effet- 
ti vedremo saranno DUE sprite gialli. 
Identici in (200, 120) e in (50,200). 
Spero che la spiegazione precedente 
non vi abbia frastornati. Aggiungerò so- 
lo che eventuali richieste di interruzioni 
provenienti dai temporizzatori verranno 
servite direttamente dalla routine origi- 
nale, grazie al test in $C030 (si potreb- 
be addirittura pensare di premettere a 
questa routine il programma 1!). 

Chi desiderasse, Inoltre, veder compari- 
re uno solo del due sprite non dovrebbe 
far altro che cambiare 11 contenuto del 
registro y virtuale nei modo su indicato 
(ponendolo cioè ad un valore minore di 
145, se si desidera far scomparire lo 
sprite inferiore; maggiore o uguale a 
145, se non si vuole veder apparire lo 
sprite superiore). 

Per illustrare debitamente le possibilità 
offerte dal Programma 2 è stato realiz- 
zato Il Programma dimostrativo 3. 
Vedere programma 3 
La versione qui riportata prevede che 
la routine del Programma 2 venga co- 
piata tramite la versione rìlocata di "Su- 
permonìtor", a partire da $CQ00 nelle 
locazioni i cui indirizzi appaiono a fianco 
delle Istruzioni, e registrata su disco sot- 
to il nome “16 5PRITES". Il disco su 
cui viene registrata deve essere Inserito 


nel drive al momento dell'esecuzione 
del programma in modo che la routine 
venga letta e trasferita direttamente 
nell'area di memoria a lei destinata, tra- 
mite la tecnica diffusamente illustrata 
nella scorsa puntata dì "ABC del lin- 
guaggio macchino", in alternativa è 
possibile convertire II Programma 2 In 
una serie di valori numerici decimali 
(<*2551, che vanno inseriti nelle op- 
portune locazioni di memoria leggendoli 
da frasi DATA incorporate al Program- 
ma 3, 

Anche questa tecnica è stata diffusa- 
mente spiegata nelle puntate preceden- 
ti. 

Per avere un'idea delle modifiche si pud 
prendere a modello quanto fatto per il 
Programma 5, che rappresenta una di- 
mostrazione della versione modificata 
della routine "16 SPR1TE3", In modo 
che, oltre a controllare la posizione de- 
gli sprite, se ne alterino anche forma e 
colore. 

Una varatone «volata 
dalla fontina di raatar 

Le principali differenze tra le due routi- 
ne riguardano II solo numero di registri 
reali controllati. In aggiunta alle coordi- 
nate degli sprite (53248-53263), si è 
scelto di controllare i registri colore de- 
gli sprlte (53287 -53294) e gli indici che 
puntano alla forma di ciascun sprite (se 
li chip grafico controlla II primo banco 
di memoria e la memoria di schermo si 
trova in 1024-2024, 1 registri suddetti 
occupano le locazioni 20 40-2047). 

DÒ significa che In aggiunta alle due 
serie di registri virtuali utilizzate dal 
Programma 2 dovremo disporre di due 
serie di otto registri colore virtuali e di 
due serie di otto registri puntatori. Uti- 
lizzando le locazioni della memoria tam- 
pone del registratore successive a quel- 
le che ospitano I registri virtuali delle 
coordinate, si è giunti alia seguente con- 
figurazione: fig. A, 

(1 meccanismo del programma non va- 
ria sostanzialmente, In quanto a ciascu- 
na sezione è stata semplicemente ag- 
giunta una serie di istruzioni, che con- 
sente di controllare I registri ausiliari di 
forma e colore. 

La differenza più evidente è costituita 
dalla maggior lentezza del programma 
di risposta alle Interruzioni da noi realiz- 
zato, Li quale provoca così un evidente 
e spiacevole effetto di lampeggio, che 
non è comunque possibile eliminare. 
Dai momento che questo fatto impedi- 
sce ulteriori espansioni del programma, 
ho preferito compattarne II listato, giu- 
stapponendo una all 1 a lira ciascuna del- 
le quattro sezioni da cui è costituito, la 
qual cosa rende più semplice trasferire, 
nelle locazioni di memoria prescelte per 
ospitarla, La traduzione delle Istruzioni 
di codice macchina in valori decimali. 

Il programma precedente presenta mo- 
difiche tanto semplici alla versione origi- 
nale da non richiedere neppure un com- 
mento dettagliato. 

Mi limiterò ad evidenziare II metodo uti- 
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lizzato per controllare tutti i registri al- 
l'Interno di un unico ciclo di lettura, che 
per LI registro X va da 15 a 0 (Il che 
permette di trasferire sia le ascisse x 
che le ordinate y degli sprite dal registri 
virtuali ai registri reali). Il contenuto del 
registro suddetto viene quindi trasferito 
airaccummulatore, ruotato verso de 
stra (ricordiamo come gh operatori di 
rotazione disponibili per II 6502 agisca- 
no sui solo accumulatore) e quindi tra- 
sferito ai registro y, dove verrà utilizza- 
to per scorrere le serie dei registri for- 
ma e colore virtuali (entrambe compo- 
ste da otto registri). 

Supponiamo, in pratica, che X valga 13 
(LI che equivale a puntare l'ordinata y 
dello sprite 6). Il suo valore binario cor* 
risponde a 

00001101 

Azzerando il riporto, e ruotando verso 
destra, Il bit meno significativo cadrà 
nel Carry stesso, mentre II bit plQ signifi- 
cativo viene rimpiazzato da uno zero, 
ottenendo la seguente configurazione 


binaria 

00000110 

cui corrisponde 11 valore decimale 6. Ta- 
le valore, trasferito nel registro indice 
Y, consente di raggiungere i registri for- 
ma e colore corrispondenti appunto al 
sesto sprite. 

Come i più esperti avranno notato. 
l' operazione precedente viene in realtà 
compiuta due volte (una volta in corri- 
spondenza al trasferimento dell'ascissa 
ed una volta per V ordina! a di ciascuno 
sprite), quindi, in realtà, la seconda ite- 
razione dell'operazione sarebbe super- 
flua. Dai momento però che il suo risul- 
tato non provoca alterazione del conte- 
nuto dei registri forma e colore, risulta 
molto più conveniente trascurare que- 
sta ripetizione che considerare il caso 
esplicitamente (a meno di riscrivere in- 
teramente la routine, utilizzando ìndici 
da 7 a 0, opportunamente “manipolati” 
per puntare ai registri contenenti le 
coordinate). 

Anche questo secondo programma di 


gestione del ras ter Interrupt è corredato 
da un programma dimostrativo. 

In questo caso si è preferito utilizzare 
la conversione del codice macchina del 
programma In valori decimali, inseriti In 
frasi DATA, e letti e trasferiti in memo- 
ria al momento dell'esecuzione. 

Dal momento che il programma deve 
anche disporre della forma di 16 sprite 
differenti (per poter apprezzare Li con- 
trollo d: taìe opzione), e che i 64 valori 
numerici che definiscono la forma di cia- 
scuno sprite devono, an eh 'e ssi, essere 
.etti ed inserir; in memoria, il program- 
ma risulta un po' lento all'Inizio, 

Per dimostrare le possibilità offerte tra- 
mite una opportuna scelta delle coordi- 
nate del 16 sprite virtuali, ho pensato 
di far apparire gli sprite sullo schermo 
uno alla volta, far loro compiere breve- 
mente qualche evoluzione e quindi farli 
scomparire uno alla volta In ordine in- 
verso. Ragioni di spazio mi impediscono 
di commentare più diffusamente il lista- 
to del programma dimostrativo. 
Programma 5 


ABC del linguaggio macchina 

profrìaaa S 

5 IFSE-OTHBNSE-1 :LOAD"l6 SPRITES" *1*1 

3 rem 231 

10 PRI NT" {CLR} {WHT }": PO RE 53281 ,Q:POKE5328 
0,0:7-53243: GOSUB 1 70 srem 126 

20 PRI NT" {HOME) { 11 GIU*}(<L>][< 38 +>] 

irem 16 

30 PRINTMSO) [<L>I t< 36 +>H<J>J* 

: r em 2 1 2 

40 DIMX (16) ,¥06) : FORI -0TO1 5 : X < I ) -SGN t RND 
(TI) --5) ; Y ( I) »-X (I) ; NEXT : rea 113 

50 FORI “0TQ7 ; POKE832+I *2 , INT ( (RND(I)*T60) 
/1 0) *1 0+90 : rem 09 

60 POKE848+I*2,INT( (RND(I) *160) /IO) *10+90 

:rem 176 

70 POKE 033 +I* 2 ,rNTURND(n * 70 ) /! 0 ) * 10+50 




: rem 

1 1 9 

30 

POKB94 9 + 1 *2 , INT ( ( 1 50+RND ( I ) * 

1 00)/10) *1 


0 

: rem 

218 

90 

POKEV+39+1 , 1 + 1 : POKE2 040+1 ,255-1: POKBV+ 


21 ,255: NEXT 

: rem 

57 

100 

SYS491 52 :REM POKEV+23,255 

: POKEV+29 , 


255 

: rem 

173 

HO 

FORI -OTOl 5 : X"PEEK (832+1*2) : 

Y-PEEK (833 


+1*2) 

; rem 

158 

120 

IFX-2 50THÈNX (!)■*- 1 :GOTOl40 

: rem 

18 

130 

I FX- 9 OTHENX ( I ) - +1 

;rem 

21 9 

1 40 

IP { Y“ 1 2 0AND I < 8 ) OR { Y> *2 20ANDI >7 ) THENY ( 


I) --1 : GOTOl 60 

: rem 

224 


150 I F ( Y" 50AN&K 3 ) OR ( Y«1 50ANDI >7 ) THENY { I ) 
“+1 :rem 107 

1 60 X-X+X(I) *10: Y-¥+¥(I) *10: POKE (832+1*2) 
, XrPOKE (83 3+1*2) * ¥ : NEXT : GOT0 1 1 0 

:rem 212 

170 FQRK-0TO7 : FQRJ-0TO63 : READB : FOKE { 255-K 
) *64+J,B: NEXT: NEXT: RETURN :rem 222 

1 30 DATA000, 126,000,001 ,255,128,007,223 

: rem 1 50 

190 DATA224 ,015,1 59, 144, 030, 06 3,1 52,028 

;rem 172 


200 DATA063 , 056 , 063,063,060,062, 126, 1 24 

: rem 164 

210 DATAI 26, 126, 126, 126, 124, 254, 120, 024 

;rem 160 

220 DATA254, 127, 241 ,254,063,227,252,063 

: rem 1 75 

230 DATAI 35,252,030,031,243,024,1 27,248 

: rem 168 

240 DATA009, 255,240, 007, 255, 224, 001 ,255 

:rem 167 

2 50 DATAI 26,000,1 26,000,000,000,000,000 

: r em 121 

260 DATA00Q, 126, 000,001 ,255,128,007,255 

: rem 1 54 

270 DATA224,01 4,031 ,144,023,207,152,025 

: t em 163 

280 DATA207, 056,063, 031 ,060,062,126,124 

: rem 167 

290 DATAI 24,254, 126,1 21 ,220,254,120,024 

;rem 160 

300 DATA254, 127,241 ,254,063,227,252,063 

:rem 174 

310 DATAI 35,252,030,031 ,243,024,127,24 8 

;rem 167 

320 DATA00 9 ,255,240,007,255,224,001 ,255 

srem 166 

330 DATAI 2 8,000,126,000, 000,000,000,000 

:rem 120 

340 DATAOOO, 126,000,001 ,255,1 28,007,255 

: r em 153 

350 DATA224, 009, 255, 240, 024, 127, 248, 030 

e rem 170 

360 DATA031 ,243,063,135,252,063,227,252 

rrem 177 

370 DATAI 27, 241 ,254,112,024,254,1 23, 1 56 

:iem 171 

3 80 DATA2 54 , 127,062, 1 26,062,1 26,124,063 

:rem 176 

390 DATA031, 060, 025, 207, 056, 028, 207, 152 

:rem 170 
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400 DATAOÌ 4^031 ,144*007,255,224,001 ,255 

trem 15$ 

410 DATA) 28,000, 126,000,000,000, 000,000 

trem 119 

420 DATAOOO, 12$, 000,001 ,255,128,007,207 

srera 149 

430 DATA224, 01 5,031 ,144,030,127,152,028 

: rem 159 

440 DATA2S5,056,057, 159,060,057,1 58, 124 

treni 191 

450 DATAI 20,01 4,126,127,050,254,1 27,05$ 

treni 166 

460 DATA254, 127, 241 ,254,063,227,252,063 

: rem 1 81 

4 70 DATAI 35, 252, 030, 031, 24 8, 024, 127, 243 

treni 174 

480 DATA0G9, 255, 240, 007, 255, 224, 001 ,255 

treni 173 

490 DATAI 28, 000, 1 26,000,000,000, 000, 000 

trem 127 

500 DATAOOO, ODO, 000,000,126,000,001 ,255 

trem 121 

510 DATAI 2 8,007,255,224,009,255,240,024 

srem 171 

520 DATAI 27, 24 8, 030, 031, 24 8, 063, 135, 252 

trem 173 

530 DATA063, 227,252,127,241 ,254,120,024 

» tram 163 

540 DATA254 ,121 , 1 56 , 2 54 , 1 2l , 2 54 , 1 26 , 060 

trem 171 

550 DATA062, 124,063,159,060,025,207,056 

trem 176 

560 DATA02S, 207, 152, 014, 031 ,144,007,255 

trem 169 

570 DATA224,001 ,255, 1 28,000,126,000,000 

trem 147 

580 DATAOOO, 000, 000, 000, 126, 000, 001 ,255 

trem 129 

590 DATAI 28, 007,255,224,009,255, 240, 024 

trem 179 

600 DATAI 27, 2 48,030, 031 ,248,063,135,252 

trem 172 

610 DATA063, 227, 252, 127 ,241 ,254,126,024 

trem 173 

620 DATA254, 124, 204, 254, 121 ,254,126,056 

trem 172 

630 DATA062, 124,057,159,060,025,207,056 

trem 178 

640 DATA02B, 207, 152, 01 4 ,031 ,144,007,255 

trem 163 

650 DATA224, 001 ,255,128,000,126,000,000 

trem 146 

660 DATAOOO, 1 26,000,001 ,255,128,007,255 

trem 158 

670 DATA224 , 01 2, 007, 1 44 , 025, 207, 1 52 , 031 

trem 162 

680 DATAI 59, 056, 06 3, 063, 060, 062, 126, 124 

trem 1 B2 

690 DATAI 26, 1 26, 1 26, 1 24, 252, 254, 1 24, 248 

trem 184 

700 DATA254, 127,241 ,254,063,227,252,063 

trem 178 

710 DATAI 35,252,030,031 ,248,024,1 27,246 

trem 171 

720 DATA009, 255, 240, 007, 255, 224,001 ,255 

trem 170 

730 DATAI 28, 000, 126, 000, 000, 000, 000, 000 

trem 124 

740 DATAOOO, 126, 000, 001 ,255,128,007,015 

: r em 1 5 1 

750 DATA224,014,103,1 44,028,231 ,152,028 

trem 166 


760 DATA 20 7,056,062,031 ,060,060,206,124 

trem 166 

770 DATAI 21 , 206 , 1 26 , 1 21 , 1 56 , 2 54 , 1 2 4 , 056 

srem 174 

780 DATA254, 127, 241, 254, 063, 227, 252 ,063 

trem 186 

790 DATAI 35, 252,030, 031 ,24 8,024,1 27,248 

trem 179 

800 DATAO 09,255,240,007,255,224,001 ,255 

trem 169 

81 0 DATAI 28 , 000 ,126, 000 , 000 , 000 , 000 , 000 

trem 123 


ABC dal linguaggio macchina 
programma 5 

10 FOR 1-491 52T049285: RE AD B : PO REI , B : NEXT 

trem 179 

20 PRINT" {CLR) { WHT ) B : POKB532 81 ,QtPOKB532S 
0,Q:V-5324Bt GQ5UB21 0 trem 122 

30 FRINT" { HOME } { 11 GIU I H<L>)[< 38 +> ] 

trem 17 

40 FORK-1 T02 1 PRINT" {SU } [ <L> ] | < 38 +>] 

£ < J> j " t NEXT trem 253 

50 DIMX(16> , Y ( 1 6) : FORI -OTO 1 5 : X (I ) - 0 : Y { I ) - 
0 trem 159 

60 NEXT : FORI -0TO7 i POKE8 32 + 1 * 2 , INT ( (RNOU, 
*1603/103*10+90 trem 211 

70 POKE848+I *2 , INT ( ( RND ( I ) * 1 60) /I 0 ) * 1 0+9Q 

trem 177 

80 POKE849+I *2 , 20 trem 1 54 

90 POKE833+I *2 ,200 trem 196 

1 00 POKE88Q+I,I+1 1 POKE888 + 1 ,15-1 trem 50 
110 POKE864+I ,248+1 1POKE872+I ,240+1 tPOKEV 
+ 21 , 255 : NEXT: SYS 4 9 1 52 trem 149 

120 FORJ-OTOl : FORI «7TOOSTEF- 1 : IPJ- 1 THENl 4 
0 trem 149 

130 POKE 833+1*2,1 NT ( (RND (I) * 7 0 ) / 1 0) *10+50 
t GOTOl 50 trem 173 

140 PQKE849+I*2, XNT £ ( 1 6Q+RND t I ) *90 3 /I 0) *1 
0 trem 224 

1 50 GOSUBÌ 650: FORK-1 TOStGOSUBl 590:NEXTK,1 
,J trem 204 

1 60 FQRF- 1 TO 5 : GQ50BÌ 590: NEXT trem 22 

1 70 FORJ-1TOOSTEP-1 t FORI- 0TO7: IFJ-1 THENl 9 
0 trem 159 

180 POKE 8 33+1*2,200: GOTO 2 0 0 trem 249 

190 POKE849+l*2, 20 trem 204 

200 GOSUB1 7 1 0 : FOR K- 1 TO 5 : GO S U 0 1 590:NEXTK,I 
, J t GOTOl 20 trem 203 

210 FORK-0TO1 5 : FORJ-0TO63 t READB t POKE (2 55- 
KJ *64+J,B: NEXT: NEXT: RETURN srem 8 

220 REM DATA ROUTINE trem 184 

230 DATAI 20, 7 73,20, 3,1 41 ,1 32,1 92,1 73,21 ,3 
,141,133,192,169,43,141,20,3,169,192 

trem 230 

240 DATAI 41 ,21 ,3,169,1 , 1 41 ,26,208,1 69,0,1 
*1 ,18,208,173,17,208,41 ,127,141 ,17,20 
8 : rem 82 

250 DATA 8 8 ,96,173,25,208,41 ,1 ,240, 81 , 1 41 f 
25,208,173,1 8,208,208,35,169,145 

: rem 74 

260 DATAI 41 , 1 8 , 208 , 1 62 , 1 5 , 1 8 9 , 64 , 3 , 1 57 , 0 , 
208,138,24,106,168,185,96,3,153,248,7 

t rem 70 

270 DATAI 85, 1 1 2, 3, 1 53, 39, 208, 202, 16, 231, 7 
6,125,192,169,0,141 ,18,208,162,15 

trem 105 

280 DATAI 89, 80, 3, 157, 0,208, 138, 24, 106, 168 
,185,104,3,1 53,248,7, 185,120,3 

trem 224 
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290 DATA 153,39, 20 8, 202, 16, 2 11, Ì04,16$ f 104 
,170,104,64,76*177,234 ;rent 92 

300 REM DATA SPRITE5 srem 187 

310 DATAOOO, 126,000, 001 ,255,1 28,007,223 

: r em 145 

320 DATA224, 01 5, 159, 144, 030, 063, 152, 028 

srem 167 

330 D ATÀC 6 3,056,063,063,060,062,1 26,1 24 

s t e m 15 8 

340 DATAI 26, 126, 126, 126, 1 24, 254, 1 20, 024 

srem 164 

350 DATA254, 127,241 ,254,063,227,252,063 

; t em 179 

360 DATAI 35,2 52,030,031 ,248,024,1 27,248 

srem 172 

370 DATA009, 255, 240,007,255,224,001 ,255 

: r ero 171 

380 DATAI 28,000,1 26,000,000,000,000,000 

; r em 12 5 

390 DATAOOO, 126, 000,001 , 255 , 1 28 , 007 , 2 55 

: r ero 158 

400 DATA224, 01 4,031 ,144,028,207,152,025 

stero 158 

410 DATA207, 056, 063, 031 ,060,062,126,124 

: rem 162 

420 DATAI 24,254,1 26,121 ,220,254,1 20,024 

itero 155 

430 DATA254, 127, 241, 254, 063, 227, 252, 063 

srem 178 

4 40 DATAI 35,252,030,031 ,248,024,1 27,248 

stero 171 

450 DATAOO 9 ,255,240,007,255,224,001 ,255 

stero 170 

460 DATAI 2 8,000, 1 26,000,000,000,000,000 

Stero 124 

470 DATAOOO ,126,000, 001 ,255,128,007,255 

Stero 157 

480 DATA224, 009, 255, 240, 024, 1 27,248,030 

stero 174 

490 QATA031 ,248,063,135,252,063,227,252 

: rem 1 91 

500 DATAI 27, 241 ,254,1 1 2,024,254,1 23,1 56 

: r e m 166 

SIO DATA254, 127, 062,126,062, 1 26,1 24,063 

stero 171 

520 DATA031 ,060,025,207,056,028,207,152 

stero 165 

530 DATA014, 031 ,144,007,255,224,001 ,255 

: rem 160 

540 DATAI 28,000, 126,000,000,000,000,000 

stero 123 

550 DATAOOO, 126, 000, 001 ,255,128,007,207 

stero 153 

560 DATA224, 01 5, 031 ,144,030,127,152,028 

stero 163 

570 DATA2 55, 056,057,1 59,060,057,1 58,1 24 

stero 195 

580 DATAI 20, 01 4, 126, 127, 060, 254, 127, 056 

stero 172 

590 DATA254, 127,241 ,254,063,227,252,063 

s rem 185 

600 DATAI 35,2 52,030,031 ,248,024,127,248 

srem 169 

610 DATA009, 255, 240, 007,255, 224, 001 ,255 

stero 168 

620 DATAI 28,000, 126,000,000,000,000,000 

: rem 1 22 

630 DATAOOO, 000, 000, 000,1 26,000,001 ,255 

stero 125 

640 DATAI 26,007,255,2 24,009,255,2 40,024 

s rem 1 75 


650 DATAI 27,248, 030, 031 ,24 8,063,135,252 

srem 177 

660 DATA063, 227, 252 ,127, 241, 254, 120, 024 

:rem 172 

670 DATA254, 1 21 ,1 56, 254, 121 ,254,126,060 

stero 175 

680 DATA062, 124,063, 159,060,025,207,056 

s rem 1 80 

690 DATA023, 207,1 52,014,031 ,144,007,255 

: rem 1 73 

700 DATA22 4 , 001 , 2 5 5 , 1 2 6 , 000 , 1 26 , 000 , 000 

stero 142 

710 DATAOOO, 000,000, 000,1 26,000,001 ,255 

stero 124 

7 20 DATAI 28, 007,255,224, 009, 255,240,024 

: rem 174 

730 DATAI 27,248,030,031 ,248,063,1 35,252 

! rem 1 76 

740 DATA063,227,252, 127,241 ,254,126,024 

stero 177 

750 DATA254, 124, 204 ,254, 121 ,254,126,056 

s rem 176 

760 DATA062, 124,057, 159,060,025,207,056 

stero 182 

770 DATA02B, 207,1 52,01 4,031 ,144,007,255 

stero 172 

780 DATA224 ,001 , 25 5 , 1 2 8 , 000 , 1 26 , 000 , 000 

: rem 1 50 

790 DATAOOO, 126,000,001 ,255,128,007,255 

t r ero 162 

800 DATA22 4, 01 2,007,1 44,025,207,152,031 

stero 157 

810 DATAI 59,056,063,063,060,062, 126,1 24 

stero 177 

820 DATAI 2 6,1 26, 126, 1 24,252,254,124,248 

itero 179 

830 DATA254, 1 27,241 ,254,063,227,252,063 

stero 182 

840 DATAI 35,252,030,031 ,248,024,127,248 

srem 175 

950 DATA009, 255, 240, 007, 255, 224, 001 ,255 

trem 174 

8 60 DATAI 28, 000, 126, 000, 000,000, 000 ,000 

stero 128 

870 DATAOOO, 126, 000, 001 ,255,128,007,015 

srem 155 

8 80 DATA2 24, 01 4, 103, 1 44, 028, 231 ,1 52,028 

s rem 170 

890 DATA207, 056, 062,031 ,060,060,206,124 

stero 170 

900 DATAI 21 ,206, 1 26, 1 21 , 1 56, 254, 1 24 ,056 

: t em 169 

91 0 DATA254, 127, 241 ,254,063,227,252,063 

srem IBI 

920 DATAI 35,252,030,031 ,248,024,127,248 

srero 174 

930 DATA009 , 255,240,007,255,224,001 ,255 

stero 173 

940 DATAI 2 8,000,1 26,000,000,000,000,000 

stero 127 

950 DATAOOO, 126, 000, 001 ,255,128,007,255 

stero 160 

960 DATA224, 009,248, 11 2,025,243,056,028 

: raro 181 

970 DATA243, 152, 060, 249, 156, 062, 124, 028 

stero 185 

9 80 DATAI 26,127,1 58, 1 27,051 ,062,127,024 

: r em 184 

990 DATAI 26, 127, 14 3, 254, 063, 199, 2 52, 063 

: r ero 196 

1 000 D ATA2 2 5,252,031 ,248,120,031 ,254,024 

stero 203 
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1010 DATACI 5,255, 1 44 ,007,255,224,001 ,255 

srem 21 1 

1 020 DATAI 28, 000,1 26, 000,000,000,000,000 

; rem 165 

1030 D ATAO 0 0,126,000,001 ,255,128,007,255 

srem 198 

1040 DATA224 ,01 5,255,208,029,135,200,025 

:rem 212 

1050 DATA051 ,152, 035, OSI ,156,050,115,060 

srem 206 

1060 DATAI 02, 11 5, 062, 102, 102, 126, 102, 100 

: rem 1 86 

1070 DATAI 26, 103, 008, 254, 06 3, 241 ,252,063 

srem 216 

1080 DATAI 95, 252, 031, 01 5, 248, 02 8, 063, 24 8 

srem 232 

TOSO DATA012,255,240, 007,255,224,001 ,255 

srem 213 

1100 DATAI 28,000,126,000,000,000, 000,000 

srem 164 

1110 DATA000, 126, 000, 001, 255, 128, 007, 255 

: rem 197 

1120 DÀTA224 ,01 5,255,208,030,247,200,028 

;rem 210 

1130 DATA231 ,152,049,143,156,057,207,060 

* * srem 221 

1140 DATATI 5, 159, 062, 11 5, 158, 126, 11 5, 156 

s rem 227 

1150 DATA126, 11 5,1 52,254,063,241 ,252,063 

srem 218 

1160 DATAI 95,252,031 ,015,248,028,063,248 

srem 231 

1170 DATA012, 255, 240, 007, 255, 224, 001 ,255 

srem 212 

1180 DATAI 28, 000, 126, 000, 000, 000, 00 0,000 

srem 172 

1190 DATA000, 126,000,001 ,255,128,007,255 

srem 205 

1200 DATA224, 01 5,255,208,029,135,200,025 

: rem 210 

1210 DATA051, 152,035, 243, 156, 051 ,231 ,060 

srem 207 

1 220 DATAI 03, 143, 062, 103, 062, 126, 102, 124 

srem 198 

1230 DATAI 26, 100, 008, 2 54, 063, 241, 252, 063 

srem 211 

1240 DATAI 95,252,031 , 01 5 , 248 , 028 , 063 , 248 

: rem 2 30 

1250 DATA01 2,255,240,007,255,224,001 ,255 

:rem 211 

1 260 DATA? 2 8, 000,1 26,000,000,000,000,000 

; r em T 7 1 

1270 DATAOOO, 126,000,001 ,255,128,007,255 

:rem 204 

1280 DATA224 ,01 5,255,208,029,131 ,200,025 

: r erti 214 

7290 DATA051 ,152,035,231,156,051 ,143,060 

srem 214 

1 300 DATAI 03, 231 ,062,103,230,126,100,204 

srem 189 

1310 DATAI 26, 102, 024, 254, 063, 241 ,252,063 

srem 210 

1 320 DATAI 95, 252, 031,01 5, 248, 028, 063, 248 

: r em 229 

1330 DATA01 2,255,240,007,255,224,001 ,255 

: r em 210 

1 34 0 DATAI 2 8,000,1 26,000,000,000,000,000 

srem 170 

1350 DATAOOO, 126, 000, 001 ,255,128,007,255 

:rem 203 

1360 DATA2 24 ,01 5,255,208,029,207,200,025 

: r em 217 


1370 DATAI 59, 1 52, 035, 063, 1 56, 050, 1 27, 060 

srem 226 

1 380 DATAI 02,079,062, 100,006,1 26,10 3,204 

srem 207 

1 390 DATAI 26,103,200, 254,063,241 ,252,063 

srem 215 

1 400 DATAI 95, 252, 031, 01 5, 248, 028, 063, 2 48 

srem 228 

1410 DATA0 1 2,255,240,007,255,224,001,255 

srem 209 

1420 DATAI 28,000,1 26,000,000,000,000,000 

i rem 1 69 

1430 DATAOOO, 126, 000, 001 ,255,128,007,255 

srem 202 

1 440 DATA2 24 ,01 5,255,208,029,003,200,025 

srem 210 

1 450 DATA051 , 1 52 , 0 34 , 1 27 , 1 56,050 , 01 5,060 

srem «212 

1 460 DATAI 0 3,231 , 062 , 1 00 , 2 30 , 1 26 , 1 00 , 204 

srem 193 

1 470 DATAI 26,102,024,254, 063,2*1 ,252,063 

srem 217 

1 480 DATAI 95, 252, 031 , 01 5 , 248 , 028, 063 , 248 

srem 236 

1490 DATA01 2,255,240, 007,255,224,001 ,255 

srem 217 

1 500 DATAI 28 , 000 ,126, 000,000,000,000,000 

srem 168 

151 0 DATAOOO, 12 6, 000, 001 ,255,128,007,255 

srem 201 

1 520 DATA2 24 ,01 5 , 255 , 20 8 , 029 , 1 35 , 200 , 025 

srem 215 

1530 DATA051 ,152,034,127,156,050,015,060 

srem 211 

1 540 DATAI 00,231 , 062 , 1 00 , 230, 1 26 , 1 00 , 204 

srem 189 

1550 DATAI 26, 102, 024, 254 ,063, 241, 252, 063 

srem 216 

1560 DATAI 95,252,031 ,015,248,028,063,248 

srem 235 

1570 DATA012, 255, 240,007, 255,224, 001, 255 

: rem 216 

1580 DATAI 28,000, 126,000,000,000,000,000 

srem 176 

1 590 FORW-OTOl 5; X-PEEK { 8 32+tf * 2 ) :Y-PEEK(83 
3+tf*2J srem 5 

1600 IFX-25QTHENX(tf) --1 sGOTOl 6 20: rem ? 36 

1610 IFX-90THENX(W}»+1 srem 29 

1 620 1F { Y" 1 20ANDW< 8 1 OR ( Y>“22QANDW>7 ) THENY 
(W) «-1 SGOTOl 640 srem 114 

1 630 IF(Y-50ANDW<8JOR(Y-1 60ANDW> 7 > THENY <tf 
) -+1 ; rem 202 

1640 X*X+X (W) *1 Q:Y*Y+Y(W) # 1 0: POKE ( 832+tf *2 
) , X : PO KB ( 8 3 3 -f W* 2 ) , Y ; NEXT ; RETURN 




s rem 

85 

1650 

X*RND (TI) : Y*RND (TU 

; rem 

213 

1660 

X ( I +J* 8) s I FX> * 3 3THENX ( I+J* 8 } * 

0 



: r em 

137 

1670 

IFX> . 66THENX (I+J*8) ■+) 

: rem 

30 

1680 

Y ( I + J * 8 ) *-! S I F Y > . 3 3THENY ( I + J * 8 ) - 

0 



Srem 

142 

1690 

!FY> . 66THENY { I+J* 8) *+1 

; rem 

34 

1700 

RETURN 

: rem 

168 

1710 

X ( I * J * 8 ) *0 : Y (X+J*8) "0: 

RETURN 




srem 

ile 
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Dalla grande edicola 

Jackson 

sul personal 


computer 


In questo numero; 

Bitest: 

Atari 130XE 

Slalom parallelo: 

HP PC Integrato 


Grid Compact 

Spedale; 

Data-base 
Corso di Assembty 
por C64 


In questo numero: 

Eoiy- Video per C64 
Geo- Race per Spedium 
Dot a- baie per C16 
Disegnatore per MSX 


O/PC/Bit/Bersonal Software 

sono pubblicazioni fumate: 

GRUPPO EDITORIALE JACKSON 


In questo numero: 

Sfogliando le Pagine Gialle 
Execuvisìon 

dBase III 

L’esperienza giapponese 


In queste numero: 


Un video 
per r oca aio 
Il problema 
del commesso viaggiatore 
Programmare in "C" 

La banca in rasa 
Assemblatori Ms Dos - Pcos 


via Roseini, 12-20124 Milano 


Piccola guida per 
l'input 

dei programmi 


M olti dei programmi listati da SUPERCOMMO- 
DORÈ contengono particolari caratteri di control* 
lo (controllo cursore, tasti colore, video-inverse, eco.). 
Per rendere chiaro ciò che dev’essere battuto quando 
è necessario inserire uno del suddetti caratteri sono 
state stabilite le seguenti convenzioni. 

Generalmente 1 listati per VIC 20 e C64 contengono delle 
«parole» racchiuse tra parentesi graffe { (; teli 
rappresentano particolari caratteri di controllo: 


3 


significa premere 11 simbolo del cursore verso 11 basso 
SPAZI] vuol dire battere 5 volte la barra-spazio. 

Per Indicare che un tasto dev’essere «shiftato», cioè 
premuto insieme al tasto SHIFT, nel listato il simbolo 
di questo tasto sarà sottolineato. 

Per esemplo S significa che dev’essere premuto 11 tasto 
S mentre è abbassato 11 tasto SHIFT. 

La manovra farò apparire sullo schermo un piccolo 
«cuore». 

Trovando un simbolo sottolineato chiuso tra parentesi 
graffe (esemplo (10 N|) dovrà essere interpretato co- 
me «premere il carattere Indicato per il numero di volte 
che lo precede nelle parentesi»: nel nostro esempio 
premere 10 volte 11 tasto N «shiftato». 

Se il tasto da premere è Indicato tra le parentesi [ OL 
vuol dire che lo stesso dovrà essere premuto mentre 
è premuto II tasto «Commodore* (Il tasto «Commodo- 
re» è quello posto nell’angolo In basso a sinistra). 

Se il tasto scritto tra [ ( )] è preceduto da un numero, 
ciò significa che II tasto dev'essere premuto per 11 nu- 
mero di volte indicato. 


Raramente ti potrà trovare un carattere alfabetico soli- 
tario racchiuso tra parentesi graffe. Tale carattere sul 
C64 può essere battuto mentre è premuto il tasto 
CTRL. 

Ad esempio {A} sta ad Indicare la sequenza CTRL-A. 
A proposito del «modo virgolette» è nota la possibilità 
di muovere 11 cursore sullo schermo con ) tasti CRSR. 
Ogni tanto 1 programmatori desiderano muovere 11 cur- 
sore durante l’esecuzione del programma. È per que- 
sto motivo che nel programmi si troveranno del | SIN ì. 
[HOME) e iBLUf. 

L’unico modo perché II calcolatore distingua 11 coman- 
do diretto da quello Inserito nel programma è 11 «modo 
virgolette*. Premendo il tasto «virgolette» (tasti SHIFT 
2) Il calcolatore si predispone appunto In «modo virgo- 
lette». 

Battendo un carattere qualsiasi, cercando poi di cor- 
reggerlo muovendo 11 cursore, si otterrà solo un trat- 
to verticale In un quadratino Inverso. Questo è Infat- 
ti Il simbolo del cursore a sinistra nel «modo virgolette». 
L’unico comando di editing non utilizzabile all’interno 
di un programma è 11 DEL. Battendo nuovamente le 
«virgolette» il calcolatore lascia 11 «modo virgolette». Si 
pud accedere al «modo virgolette» quando inserite spa- 
zi nella Linea. 

In ogni caso, il sistema più semplice per uscire dal 
«modo virgolette» è quello di premere il tasto RE- 
TURN. 

Utilizzare la tabella che segue quando è necessario 
inserire comandi relativi al cursore e al tasti colore. 


Oliando leggete; 

Premete: Vedrete: 

! 

1 

Premete: 

Vedrete: 

Quando leggete; 

Premete; 

Vedrete: 

(CLR) 

imi (Affini 

G 

(CYN) 

QBO 

m 

K7>) 

ma 

□ 

{ HOME } 


H 

(PUR) 

USO 

m 

i<e>] 

□ □ 

■ ■ 

(sul 

BD d 

□ 

(CRN] 

min 

□ 

(Fi) 

m 

5 

(GIU* I 

Umili 

E 

(BLU) 

uia o 

B 

(F2) 

m 


(SIN) 

BSD Ud£9E 

II 

(YELl 

una 

Si 

(F3) 

OD 

B 

(DES) 

mm 

□ 

f<i>1 

sa 

□ 

IF4) 

KD 

U 

f RVS ) 

cm □ 

E 

E<2>1 

SB 

B 

{FS} 

na 

II 

{OFF} 

uà o 

B 

[<3> J 

SO 

O 

(F6) 

uà 

B 

tBLK} 

man 

■ 

£<4>] 

3 0 

m 

(F7) 

OS 

II 

(WHTJ 

mmm 

m 

l<5>] 

sa 

E 

{FB} 

nn 

m 

f RED} 

IJ» fl Q 


E<6>) 

sa 

■1 






MLX per VIC 20 
e C64 


di C 1 

trad, e adatt. 

di |f 

2.0 per C64)e f7 


M LX è un programmo che permette 
di inagrire fatati in linguaggio mac- 
china esenti in modo assoluto da errori e 
senza la perdita di tempo del dover batte- 
re e controllare lunghe sequenze di Istru- 
zioni DATA, 

Molti del nostri listati di programmi in 
linguaggio macchina hanno U formato 
MLX {Il riconoscete da] fatto che sono 
esclusivamente numerici} e richiedono 
quindi che MLX sia caricato In memoria 
ed eseguito prima della battitura del fata- 
to. 

MLX vi chiederà l’Indirizzo delta locazio- 
ne di partenza e quello della locazione 
finale del programma da caricare. Quest! 
valori sono sempre indicati nell’articolo 
che accompagna 11 listato. MLX vi segna- 
la automaticamente gli errori di battitura 
MENTRE STATE DIGITANDO IL LI- 
STATO e vi chiede di reintegre la linea 
errata. L'ultimo numero battuto di ogni 

MLX v«i*Iom per VIC 20 


linea rappresenta il checksum e viene vi- 
sualizzato In reverse. 

Sono Inoltre disponibili altri comandi, quali: 
SHIFT-N nuovo Indirizzo: permette di 
cambiare l'Indirizzo della linea che volete 
battere ed è utile nel caso si Inseriscano 
1 fatati In più parti. 

SHIFT-D display: lista 1 dati inseriti tra 
due Indirizzi di Inizio e fine. 

SHIFT-L load: carica un file da nastro o 
SHIFT-S save: salva su nastro o disco un 
file In formato MLX. 

Una volta battuto il fatato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente il programma con un'istruzione 
LOAD “nome del fUe\l,l per 11 registra 
tore, oppure LOAD “nome del file*, 8,1 
per l'unità a dischi» salvo diverse Indica- 
zióni date negli articoli corrispondenti ai 
vari programmi. U programma sarà gene- 
ralmente mandato In esecuzione con una 
SYS (indirizzo di partenza}. 


La versione originarla di MLX per €64 
ha subito, dalla prima pubblicatone, di- 
versi ritocchi e miglioramenti» fino alla 
versione 2.0 qui presentata. 

È stato In primo luogo modificato II odore 
di fondo dello schermo e del bordo» In 
modo da risultare meno stancante alla 
vista; sono state ulteriormente perfezio- 
nate le routine In linguaggio macchina di 
salvataggio e caricamento dei program- 
mi; i cambiata la forma del cursore e, 
cosa più Importante, è stato aggiunto un 
tastierìno numerico per gli utenti dìe si 
trovano più a loro agio con una diversa 
disposinone dei tasti. 

Oltre a poter usare I soliti tasti numerici, 
sono stati ridatati! alcuni tasti alfabetici» 
In modo da generare ugualmente del nu- 
meri. I tasti ridatati! sono f seguenti: 

U I O 7 8 9 

H J K L diventano 0 4 6 6 

M». 123 

Le persone abituate ad usare tali tastlerl- 
nl accresceranno senz'altro. In brevissimo 
tempo» la velodtà di battitura del pro- 
grammi in linguaggio macchina. 


1 00 PRINT" {CLR } { POR } ” ;CHR$ ( T 42 ) ;CHR$ {8} ; 

: r eta 1 Sì 

101 PORE78B ,194: REM DISABILITA RUN/STOP 

treni 144 

110 PRIHT" 1 {rvs } t 14 SPASI}" srem 117 
120 PRIHT" {RVS} {DBS } {OFF} {<*>] £{RVS} 

{DBS} {DBS } { 2 SPASI} [<*>} {OFF} {<*>} 
£{RVS}£{RVS) " :rem 191 

130 PFINT w TrVS) {DBS} (<G>]{DES) 

{ 2 DBS} {OFF } £ { RVS }£(<">} ( OFF } f < *> } 
{RVS} {OFF}" treni 122 

140 PRIHT" {RVS } { 14 SPAZI}" treni 120 

200 PRIHT" { 2 GIU , }{PUR}{BLR}UN PROGRAMMA 
PER L* IN-TRODUZ IONE { 2 SPAZI }DI KOUT 
INSXN LINGUAGGIO MACCHINA”; :rem 202 
205 PRIHT" A PROVA DI ERRORE { 5 GIU')* 

:rem 226 

210 PRINT" { BLK } { 4 SU} INDIRIZZO DI PARTE N 
ZA" : INPUTS : F-1 -F:C$-CHRS (31 4-1 1 9*F) 

:rea 52 

220 I FS< 2 5 6QR3 > 3 2 7 € 7THBNGOSUB3 00 0 : GOTO 2 1 Q 

: rem 2 

225 PRIHT: PRINT: PRINT: PRINT treni 123 

230 PRINT" {BLK }{ 3 SU} INDIRIZZO CONCLUSIV 
O” t INPUTB;F*Ì -FsC$*CHR3 (31 +1 1 9*F) 

srem 170 

240 I FE< 25 60RE >3276 7THEHGOSUB30 0 0 : GOTO 2 3 0 

:rem 234 

250 IFE<STHEHPRINTC$J" {RVS} INDIRIZZO CONC 
LUSI VQ < INDIRIZZO DI PARTENZA 
{ 3 GIU * } " s GOSUBl 000 :GOTO230 : rem 27 

260 PRINT: PRINT: PRINT irai 179 

300 PRINT* {CLR } " ? CHR6 ( 1 4 } t AD ®S :rem 56 
310 PRINTRIGHT${"0000”+MID$(STR$(AD) , 2 ) ,5 
);":*;:FORJ-lTG6 irei 234 

320 GQSUB57Q:IFN*-TTHENJ <1+11: GOTO 3 20 

: rem 228 

390 IFN«- 21 1 THEN71 0 treni 62 

400 IFN»- 204THEN790 treta 64 

410 IPN“- 2 06THBNPRXMT SPRINT" [GIU* } INSERÌ S 
CI UN NUOVO { 4 SPAZI } INDIR! ZZO 7 ; : INFU 
TZZ :rem 42 


41 5 IFN*-206THENIFZZ<SORZZ>ETHENPRINT" 

{RVS} ESC E DAL CAMPO DI VA-" srem ISO 

416 IFNì«-706THENIFZZ<SORZZ>ETH8NPRXNT" 
{RVS } LORI INDICATO" IGOSUB1 000 JGOTO410 

: rem 1 05 

41 7 IFN»-206THENAD»ZZ £ PRINT:GOT031 0 

; rem 238 

420 IFNO-1 96THEN480 :rem 133 

430 PRI NT : I NPUT* LI STATO; DA" |F: PRIHT," 

{ 2 SIN} A"; sINFUTT “ : rem 29 

440 I FF< SORF >E0RT< SORT>ETHENPRINT"MI NINO" 
;S;" {SIN} , MASSIMO" ;E:GOTO430 

: rem 36 

450 FORI •FTOTSTEP6 i PRINT t PR I NTRIGHT? ("000 
0 " +MID6 ( Str$ { I } ,2) , 5) ; " srem 30 
455 FORK-0TO5:N-PEEK(I+K) I IF1Ei>3THENPRINTS 
PC(10)f treni 34 

457 PRINTRIGHT$("0Q"+MID$(STR$ (N) ,2) ,3) ?" 

#*? ixmm 157 

460 GETA$:IFA$>""THENPRXNT:PRXNT:G0TO31O 

: rem 25 

470 NEXTK : PRI NTCHR6 (20} ; :NEXTT SPRINTI PRIN 
T: GOTO 310 ;rem 50 

480 IFN<OTHENPRINTsGGTO 310 : rem 168 

490 A ( J) "N : NEXT J ;rem 199 

500 CKSUM^AD- INT (AD/256] 4256: FORI*1T06;CK 
SUM" (CKSUM+A ( I } ) AND255 1 NEXT ; rem 200 
510 FRI NTCHR# (18} ; i GO5UB570 : PRI NTCHR9 £20) 

srem 234 

515 IFN*C K5UMTHEN 530 srem 255 

520 PRINT; PRINT* LA RIGA É 1 STATA INSE-RIT 
A IN MANIERA ERRATA” :rem 39 

525 PRIHT" RI -INSERIRLA"; PRINT: GOSUBl 000 :G 



OTO310 

: rem 

167 

530 

GOSUB2000 

: rem 

218 

540 

FORI»! TO 6 : POKEAD+I - 1 , 

A(I) SNEXT 




: r em 

80 

550 

AD «AD +6 : IFAD<ETHEN31 0 

: rem 

212 

560 

GOTO 71 0 

; rem 

108 

570 

N-OtZ-O 

srem 

88 


aJPDKOMMOOOKÉ* j/m - 17 


580 

PRINT"(<+>]"; 

: rem 

79 

581 

GETASìIFAS-""THEN581 

s rem 

95 

585 

PRINTCHRS(20) ;;A-ASC(A$> : IFA-1 30RA-44 


ORA-32THEN670 

: rem 

229 

590 

IFA>1 28THENN-- A: RETURN 

: rem 

137 

600 

IFAO20THEN630 

: rem 

10 

610 

GOSUB690:IFI-lANDT-44THENN-- 

1 SPRINT" 


(SIN) (SIN)" ; :GOTO690 

srem 

172 

620 

GOTO 570 

:rem 

1 09 

630 

IFA<480RA>57THEN580 

: rem 

105 

640 

PRINTAS ) : N-N* 1 0+A- 48 

: rem 

106 

650 

I FN> 2 5 5THENA ■ 2 0 : GOSU 8 1 000: GOTD6 0 0 




; rem 

229 

660 

Z-Z+l :IFZ<3THEN580 

; rem 

71 

670 

IFZ-OTHENGOSUB1 000: GOTO 570 

:rem 

114 

680 

PRINT", ";:RETURN 

srem 

240 

690 

S4-FEEK (209) +256*PEEK (210) +PEEK (211) 



:rem 

149 

692 

FORI»lT03:T-PEEK(S%-I) 

: r em 

68 


695 IFT< > 4 4 AUDT< > 5 8THENP0KES 1-1,32; KBXT 

3 rem 205 

700 PRINTLEFT? ( " { 3 SIN } ", I~1 RETURN 

2 rem 7 

710 PRI NT" {CLR J { RVS } * * * SAVE *** 

( 3 GIU 1 }" “ trem 236 

720 INPUT" {GIU 1 } NOME DEL FILE";FS 

trem 199 

730 PRINT: PRINT" { 2 GIU 1 ) {RVE }N (OFF) ASTRO 
O (RVS)D(OFP}ISCO: (N/D)" trem 128 

740 GBTA$: IFA5O"N"ANDA$<>"D"THEN740 

: ren 30 

750 DV-1-7*(A$»"D") iIFDV-8THENF$-"0:"+FS 

trem 156 

760 TS-FS : ZK-PEEK (53) +256*PEEK ( 54) -LEK (TS 
) :POKE7B2,ZK/256 trem 3 

762 POKE781 .ZK-PEEK (782) *256: POKE780,LEN( 

T8) :SYS65469 trem 109 

763 POKE780,! : POKE781 ,DV: POKE782, 1 : SYS654 

66 trem 69 

765 POKE254 f S/256: POKE253,S- PEEK (254) *256 

: POKE780 , 253 treni 12 

766 POKB782,E/256: POKE7S1 , E- PEEK (762) *256 

: SYS65496 trem 124 

770 I F ( PEEK (783) AND 1 ) OR ( ST ANDl 91 ) THEN780 

: rem 111 


775 PRINT" (GIU 1 ) OPERAZIONE CONCLUSA. " : END 

:retn 152 

780 PRINT* (GIU 1 (ERRORE DI REGISTRAZIO-NB. 

RIPROVA. "ilFDV-lTHEN 7 20 : rem 8 

781 OPEN 1 5 1 8 f 1 5 : 1 N PUTÌ 15,El$,E28:PRI NTEl 8 



;E2$:CLOSEl5:GOTO720 

: rem 

103 

782 

GOTO720 

; rem 

115 

790 

PRINT" (CLR) (RVS)*** LO AD 

*** 



( 2 GIU' }" 

: rem 

21 2 

800 

INPUT"! 2 GIU') NOME DEL 

FILE” ;F$ 




;rem 

215 


810 PRINT: PRINT" ( 2 GIU’ ){RVS)N {OFF J ASTRO 
O (RVS )D (OFF ) ISCO: (N/D)" : rem 127 

820 GETA?: IFA5O"N"ANDA$O"D"THEN820 

: reo 23 

830 DV-1 -7* (A$-"D") :IFDV-8THENF$«"0:"+F$ 

:rem 157 

840 TS-FS: ZK-PEEK (53)+256*PEEK (54) -LEN(T$ 

) : POKE782, ZK/2 56 : rem 2 

841 POKE781, ZK-PEEK (782) *256: POKE?8Q,LEN( 

TS) :SYS65469 treni 107 

845 POKE780,! :POKE781 ,DV: POKE782, 1 ; SYS654 
66 treni 70 

850 POKE780 ,0 : SYS65493 treni 11 

860 IF (PEEK (783) AN01 ) OR (ST ANDl 91 JTHENB70 

treni 111 

865 PRINT" (GIU 1 lOPERAZIONE CONCLUSA GOT 
031 0 tram 1 42 

870 PRINT" {GIU 1 JERRORE DI CARICAMENTO. RIP 
ROVA. {GIU ' 3 " t IFDV-1THEN800 :rem 43 

880 0PEN1 5,8,1 5: INPUT# 1 5,E1 S ,E2$: PRINTE1S 
;E2$t CLOSE1 5 :GOTO800 treni 102 

1000 REM CICALINO trem 231 

1001 POKE36B78 ,15: POKE36874 ,190 trem 206 

1002 FORW-1 TO3Q0 i NEXTW trem 117 

1003 POKE36678 1 0: POKE36674 , 0 : RETURN 

trem 74 

2000 REM CAMPANELLO trem 130 

2001 FORW-1 5TOOSTEP- 1 : POKE36878 ,W: POKE368 

76, 240; NEXTW trem 22 

2002 POKE36876,0: RETURN trem 119 

3000 PRINTCS;" (RVS)NON IN PAGINA ZERO O 

( 2 SPAZI )SU ROM ( 4 GIU ' )" tGOTOl 000 

trem 23 


MLX versione 2.9 per C64 

100 PRINT" (CLR) (CYN) " jCHRS ( 1 42) ;CHRS(8) ; : 

POKE53280 , 0 :POKE5328t ,0 trem 71 

101 POKE78B, 52 :RBM DISABILITA RUN/STOP 

trem 89 

110 PRINT"(RVS){ 40 SPAZI)"; trem 176 

120 PRINT" (RVS) ( 15 SPAZIUDESHOFF) [<*» 
“{RVS} (DBS) (DESÌI 2 SPAZI) £<*>] (OFF) 
T<*>12lRVS)2(HVS) t 13 SPAZI)"; 

trem 250 

130 PRINT" (RVSH 15 SPAZI)(DES} (<N>) [<H>] 
(DES) ( 2 DBS) {QFF} - {RVSpl<*>I (OFF) 
t < * > ) ( RVS } { 13 SPAZlT"; ” trem 220 
140 PRINT" { RVS )( 40 SPAZI)" trem 120 

200 PRINT" { 2 GIU' }{ PUR) EDITOR DI CODICE 
MACCHINA VERSIONE 2.0{ 3 GIU'J" 

: rea 126 

210 PRINT" (<5>) ( 2 SU) INDIRIZZO DI PARTE 
NZA{ 2 SPAZI}"; :INPUTSiP-l-FiCS-CHR$ ( 
31 +1 1 9*PJ trem 85 

220 IFS<25EOR(S>40960ANSS<491 52)ORS>53247 
THE NGOSUB 3 0 0 0 : GOT02 1 0 trem 235 

225 PRINTt FRI NT t PRINT trem 180 


230 PRINT" «5» { 2 SU) INDIRIZZO CONCLUSI 
VO( 3 SPAZI)"; :INPUTBiF-l-F:CS-CHRS(3 
1+Ì19*F) trem 92 

240 IFE42560R (E>40960ANDE<491 52)ORE>53247 
THENGOSUB3000 : GOTO 2 30 trem 183 

250 IPE<STHENPRINTC8;" (RVS) INDIRIZZO CONO 
LUSIVO< INDIRIZZO INIZIALE" trem 200 

255 IFE<STHBNGOSUB1000;GOT0230 trem 119 

260 PRINT: PRINT: PRINT trem 179 

300 PRINT" (CLR) ";CHRS ( 1 4) :AD-S;POKEV+21 ,0 

trem 225 

31 0 A-l tPRINTRIGHTS ("0000“>MID6 (STRS (AD) , 
2) tFORJ-AT06 trem 227 

315 FORJ-AT06 trem 33 

320 GOSUB570 t IPN*- 1 THBNJ- J+N t GOTO320 

trem 228 

390 IFN--21 1THEN71 0 trem 62 

400 IFH--204THEN790 trem 64 

410 IFK--206THENPRINT: INPUT" (GIU'} INSERÌ 
RE IL NUOVO INDIRIZZO" ;ZZ trem 13 

41 4 IPN--2ff6THENIFZZ<SORZZ>ETHENPRINT" 

(RVS) ESCE DAL CAMPO DI VALORI INDICAT 
O" trem 105 


41 5 IFN=-206THENIFZZ<SORZZ>ETHENGOSUB1 000 
:GOTO410 i rem 202 

417 IFN--206THENAD-ZZ : PRINT :GOT031 0 

:retn 238 

420 IFNO-1 96THEN480 : rem 133 

430 PRI NT: INPUT" LISTATO :DA";F:PRI NT" 

{ 9 SPAZ I ) A" ; : INPUTT i rem 183 

440 IFF<SORF>EORT<SORT>ETHBNPRINT"MINIHO" 
;S; " MASSIMO"; Bì "1 [<5>] " :GOTO470 

:rem 147 

450 FORI « FTOTSTBP6 i PRINT : PRINTRI GHT$ ("000 
Q"+MID$(STR$(I) ,2) ,5) ire» 30 

451 FORK“OTOS :N“PEEK (I+K) : PRI NTRIGHTS ("00 

"+MID$(STR$(N),2),3)j","; :rero 66 

460 GETAS : IFA$>""THBNPRINT: PRINT : GOTO 3 10 

: rem 25 

470 NBXTK:PRINTCHR$ (20) ; :NEXTI : PRINT: PRIN 
T : G0T03 1 0 :ren 50 

480 IFN<0THENPRINT:GOTO31 0 : rem 16B 

490 AU)-N:NEXTJ : rem 199 

500 CKSUM-AD-INT(AD/256)*256:F0RI“lTO6:CK 


SUM- (CKSUM+A(I) ) AND255:NBXT : rem 200 
5 1 0 PRINTCHRS ( 1 8 ) ; : GOSUB5 70 : PRINTCHRS (146 



1 1 

srem 

94 

sii 

IFN-- 1 THBNA- 6 : GOT03 1 5 

; rem 

254 

51 5 

PRINT CHR$ ( 20) S I FN= CKSUMTHEN 5 3 0 




: rem 

122 

520 

PRINT: PRINT" {RED} LA LINEA E 

1 STATA 

. IN 


SERITA IN MANIERA - " 

:r*m 

157 

525 

PRINT "ERRATA. RIPETERE [< 5» 

":PRI NT:GO 


SUBÌ 000 :GOT031}} 

: rem 

27 

530 

GQSUB2000 

: rem 

218 

540 

FORI-lT06:POKBAD+I-l,A(I) :NEXT:POKE54 


272,0sPOKB54273,0 

s rem 

227 

550 

AD-AD+6 : 1 FAD<BTHEN3 1 0 

: rem 

212 

550 

GOTO? 10 

: rem 

108 

570 

N-OsZ-O 

: rem 

88 

580 

PRINT" [<~>1 

: rem 

81 

581 

GETAS ;irA$-""THEN58l 

: rem 

95 

582 

AV-- (AS-“M" )-2*(AS“",")-3*(A$-".") 

-4* 


(AS*"J"J -5* (AS""K" ) -6* (AS“" 

L rt ) 




: rem 

41 

583 

AV-AV-7*{AS*"U"}-8*(AS-"I") 

- 9 * ( A$ 3 

«O" 


) : IFA$ - "H “THENAS - " 0 " 

5 rem 

134 

584 

IFAV>0THBNA$“CHRS (46+AV) 

: rem 

134 

585 

PRINTCHRS (20) ; :A-ASC(AS) : I FA= 1 30RA- 4 4 


ORA-32THEN670 

: rem 

229 

590 

IFA>1 2BTHENN- -A: RETURN 

: rem 

137 

eoo 

IFAO20THEN630 

r rem 

10 

610 

GOSUB690 : IFI-1 ANDT-44THENN- 

-1 SPRINT" 


{SIN } {SIN}"; :GOTO690 

: rem 

172 

620 

GOTO570 

srem 

109 

630 

IFA < 4 80RA > 5 7THEN 5 8 0 

:rem 

105 

640 

PRINTAS) :N-N*10+A-48 

: rem 

106 

650 

IFN> 2 5 5THENA» 20: GOSUB 1 000:GOTO600 




; rem 

229 

660 

Z-Z+l :IFZ<3THBN580 

; rem 

71 

670 

IFZ-OTHENGOSUBl 000 :GOTO570 

srem 

114 

680 

PRINT","; :RETURN 

srem 

240 

690 

SI “PEEK (209) +256*PBEK (21 0) +PEBK{21 1 ) 



; rem 

149 

691 

FORI” 1 T03 :T“PEEK (Si-I ) 

: rem 

67 


695 IPTO44ANDTO58THBNP0KESÌ-I, 32 :NEXT 

:rem 205 

700 PRINTLEFTS ("{ 3 SIN} " , I- 1 1 f :RETURN 

:rem 7 

710 PRINT" {CLR}{RVS}*** SAVS *** 

{ 3 GIU’}" ire» 236 

715 PRINT" { 2 GIU’ } PREMERE ( RVS } RETURN 
(OFF} PER USCIRE DAL SAVE (GIU* }' s 

: rem 103 


720 F$“"" : INPUT" (GIU 1 }NOME DEL PILB";F$:I 
PF$ » ""THENPRINT: PRINT: GOT031 0 

* tram 42 

730 PRI NT : PRI NT " ( 2 GIU* } (RV8}N(OFF} ASTRO 
O { RVS }D{ OFFjISCO: (N/D) * iram 128 

740 GETAS :IPASO"N n ANDASO n D B THEN740 

tram 30 

750 DV“1 -7* (A$“"D") : IFDV-8THENFS“"0 : "+7S : 

OPEN! 5,8,15, "S"+P$ :CLOSEl S :rem 212 
760 TS-FS : ZK-PEEK ( 53) +256*PEEK (54) -LEN (T$ 
) :POKE782,ZK/256 :rem 3 

762 POKE781 , ZK-PEEK (782) *256 :POKB780 , LEN ( 

T$):SYS65469 :rem 109 

763 POKE78Q, 1 :POKE781 ,DV:POKE782 , 1 :SYS6S4 

66 ilem 69 

765 K«S:POKE254,K/256;POKB253,K-PEEK<254) 

*256: POKE780, 253 :rem 17 

766 K-S+l :POKE782 ,K/256:POKE781 ,K-PEEK(78 

2) *256 :SYS65496 :rem 235 

770 IF (PEBK (783) ANDl )OR(l 91 ANDST) TKBN780 

:rem 111 

775 PRINT"(GIU' ÌFATTO. (GIU 1 }":G0T031 0 

: rem 201 

780 PRINT" (GIU 1 } ERRORE NEL S AVE-RI PROVA ! ” 

: IFDV-1 THEN770 : rem 1 04 

781 OPENl 5,8,15: INPUT! 1 5 ,El $ , B2$ : PRINTB1 $ 

;E2$ :CLOSEl 5 :GOTO720 :rem 103 

790 PRINT" (CLRJ {RVS}*** LOAD *** 

( 2 GIU'}" ~ tram 212 

795 PRINT" ( 2 GIU'ÌPREMERE (RVS) RETURN 
(OFF! PER USCIRE DAL LOAD ( GIU M* 

: rem 96 

800 F$“" " : INPUT" { 2 GIU 1 } NOME DEL FILE";? 

$:IFF$*""THBNPRINT:GOTO310 : rem 115 
810 PRI NT : PRINT" { 2 GIU' } {RVS}N(0FF} ASTRO 
O (RVS}D(OFF}ISCO: (N/D)" :rem 127 

820 GETAS :IFA$O"N"ANDASO"D"THEN820 

: rem 28 

830 DV-1-7* (A$“"D") : IFDV"8THENF$“"0 : "+FS 

: rem 157 

840 TS»F$:ZK“PEEK(53)+256*PBEK(54)-LBN<T$ 

) :POKB782,2K/256 :rem 2 

841 P0KB7S1 , ZK-PEEK (782) *256 : POKE780 , LEN { 

T?) :SYS65469 : rem 107 

845 POKE780,! :POKE781 ,DV:POKE782 , 1 :SYS654 
66 :reo 70 

850 POKE780, 0:SYS65493 :rem 11 

860 IF ( PEEK (783) ANDl ) OR ( 1 91 ANDST) THEN87Q 

: rem 111 

865 PRINT" (GIU 1 } FATTO. ":GOT031 0 :rem 184 
870 PRINT" (GIU 1 ÌERRORE NEL LOAD -RI PETI ! 

(GIU' } " : IFDV-I THEN800 :rem 19 

880 OPENl 5,8,1 5 : INPUT! 1 5,B1 $,E2S :PRINTET $ 
;E2 $ iCLOSEI 5: GOTO 8 00 : rem 102 

1000 REM CICALINO :rem 231 

1001 POKE54296, 1 5 : POKE54277, 45 : POKB54278 , 

165 :rem 207 

1002 POKE54276, 33:POKE54273, 6:PQKE54272, 5 

: rem 42 

1 003 FORT-1T02QO :NBXT:POKE54276, 32 :POKE54 
273,0:POKE54272,0 : RETURN :rem 202 

2000 REM CAMPANELLO : rem 130 

2001 POKE54296, 1 5:POKB54277, 0:POÉE54278, 2 

47 :rem 152 

2002 POKE54276, 1 7 :POKB54273, 40 :POKE54272 , 

0 : rem 86 

2003 FORT*! TOI 00 :NEXT:POKB54276, 1 6: RETURN 

: rem 57 

3000 PRINTCS ; " {RVS} NON IN PAGINA ZERO O 
SU(DES } ROM " :GOT01 000 tram 240 


SUPtHCOWWOOK^ 7/» 29 


die. 




tm ehm eoa qMiti peritarle* è 
pe — IMI* mmchm lift de II* ottime 
prefica. Alla fine di questo arti- 
colo troverete dee listati: il pri- 

I? la MPS-S02 ••c?ndo”Tvò- 
atre esige n re, ed li secondo è 

ta di eoa sebensata edTafta riso- 
Wom del C#4 . 


M olti lettori che posseggono una 
stampante Commodore MPS-S02 
d scrivono Lamentando la tua Incompa* 
tlbilltà con le altre «lampanti Commodo 
re per quanto riguarda la creazione di 
caratteri personalizzati o h più In genera* 
le, chiedendoci «e, e in quale modo, «la 



in alta risoluzione. 


Pensiamo quindi di andare Incontro alle 
esigenze di molti utenti Commodore ah 
frontando tale argomento: vedremo In- 
sieme come sfruttare al meglio e nel 
modo più semplice le caratteristiche di 
questa stampante, colmando magari al- 
cune lacune del manuale fornito dalla 
casa produttrice» che liquida In sole due 
pagine le possibilità grafiche di questa 
macchina. 

Consideriamo brevemente le caratteri- 
stiche della MPS-802. SI tratta di una 
stampante bidirezionale» che pud usare 
sla tabulati a modulo continuo che fogli 
singoli; ha buone caratteristiche di velo- 
cità (col suoi 60 caratteri al secondo 
riempie un foglio formato A4 In circa 
un minuto); è una periferica “Intelligen- 
te*, cioè governata da un microproces- 
sore, per cui possiede una memoria In- 
terna e, soprattutto, un sistema operati- 

40 SUFESCOtOMOOm* 7/SB 



vo, vale a dire un programma residente 
In ROM che gestisce il funzionamento 
della macchina in tutti i suoi aspetti. 
Proprio La complessità di questo sistema 
operativa costituisce La caratteristica 
che, a nostro avviso, eleva la MPS-8G2 
un gradino al dì sopra delle altre stam- 
panti economiche disponi bili per l com- 
puter Commodore. Tale programma 
non serve solo a gestire lo spostamento 
della testina di stampa, ma bensì è In 
grado di accettare una vasta gamma di 
comandi e di informazioni provenienti 


dal computer, che V utente Invia alla 
stampante per mezzo di file con deter- 
minati Indirizzi secondari. 


Come saprete, la sintassi del comando 
OPEN del CBM BASIC è 


OPEN nfl.npjs 

dove - nfT è II numero del file logico 
(qualsiasi numero compreso tra 1 e 
255), "np” è 11 numero della periferica. 



detto anche indirtelo primario {nel no- 
*tro caso 4) e *ls" è 1’indirtezo seconda- 
rio* 

Nel caso della MPS-802 l’importanza 
dell'indirizzo secondario è fondamenta- 
le: esso serve a comunicare alla stam- 
pante come deve interpretare le Infor- 
mazioni provenienti dal computer. Sono 
possibili ben dieci indirizzi secondari: 

0 — Stampa i dati esattamente come 
ricevuti, usando il set maiuscolo/ 
grafico* SI tratta del valore default, e 
può essere omesso. Utilizzato anche 
dalle altre stampanti Commodore. 

1 - Stampa ! dati secondo 11 formato 
definito precedentemente. 

2 — Definisce il formato dei dati da 
stampare. 

3 - Regola Li numero di righe stampate 
per pagina. 

4 - Abilita la stampa dei messaggi di er- 
rore. 

5 - Definisce un carattere programma- 
bile. 

6 - Regola la spaziatura tra le righe. 

7 — Stampa L dati esattamente come 
ricevuti, usando il set minuscolo/ 
maiuscolo. Utilizzato anche dalle altre 
stampanti Commodore. 

9 - Disabilita la stampa dei messaggi 
di errore. 

10 — Relntelallzza La stampante, ripor- 
tandola alle condizioni di accensione. 
Per comoditi possiamo definire "file di 
stampa” quelli con Indirizzi secondari 
0-1-7 e “file di controllo" tutti gli altri. 
È appunto la gestione delle informazioni 
tramite gli Indirizzi secondari ciò che di- 
stingue la MPS-802 dalle altre stampan- 
ti Commodore, limitando la sua compa- 
tibilità con il software ad esse dedicato. 
Bisogna dire che tale Incompatibilità si 
avverte solo con programmi che faccia- 
no uso di caratteri ri definiti o effettuino 
stampa ad alta risoluzione; In tutti gli 
altri casi non si riscontra infatti alcun In* 
conveniente* 

11 motivo principale di questa mancanza 
di compatibilità, tuttavia, risiede a mon- 
te della questione degli Indirizzi secon- 
dari: sta nel fatto che la matrice- 
carattere delia MPS-802 è formata da 
3x8 punti, e non 6x7 come nelle altre 
stampanti Commodore. Ciò rende ov- 
viamente diverso Li Lavoro di codifica di 
un carattere programmabile. Inoltre la 
MPS802 consente di definire (Indirizzo 
secondario 5) un carattere personalizza- 
to alla volta, ed ogni riga stampata ne 
può contenere uno solo. Queste sem- 
brerebbero limitazioni molto pesanti, 
ma, come vedremo più avanti, esiste lì 
modo di aggirarle. 

Consideriamo ora 1 pregi di questa 
stampante: le informazioni inviabili tra- 
mite gli indirizzi secondari consentono 
di “maneggiare" J dati con molta elasti- 
cità, in quanto è possibile programmare 
la tabulazione della stampa (eventual- 
mente con separazione di pagina) e re- 
golare con precisione la distanza tra le 
righe, adattandola a qualunque tipo di 
foglio o modulo: tutte cose che con le 
altre stampanti economiche Commodo- 


re non sono possibili, o perlomeno pre- 
suppongono la presenza di software ap- 
posito nella memoria del computer, di- 
minuendo quindi La RAM disponibile 
per I programmi dell'utente. Inoltre la 
qualità della stampa, grazie al maggior 
numero di punti (64 contro 421 che 
compongono 11 carattere, è indubbia- 
mente migliore rispetto alle concorren- 
ti; Infine I punti sono “quadrati" e a con- 
tatto L’uno con l'altro, dando maggior 
compattezza alla scrittura, specialmen- 
te rispetto alla cugina MPS-803. 


d-0 


righe eovrappoete 

d-21 


righe a contano 

d-24 


9 righe par pollice 

d-27 


8 righe per pollice 

d-31 

n..* 

7 righe per pollice 

d-36 

tdffault) 

6 righe per pollice 

d-43 

n*~ 

5 righe per pollice 

d-S4 


4 righe per pollice 

d-72 


3 righe per pollice 

d-ioa 


2 righe per pollice 


PrortulM la MPS-802 

La MPS-802 è quindi una stampante 
“programmabile"* È infatti possibile for- 
mattare La stampa di parole e numeri 
per creare tabelle (indirizzi secondari 1 
e 2), opzione molto interessante, ma 
che tuttavia esula dall’argomento di 
questo articolo; si pud Inoltre seleziona- 
re la distanza tra le righe ed II numero 
di righe per pagina. Vorremmo spende- 
re due parole proprio riguardo a queste 
ultime possibilità. 

Per determinare la distanza tra due ri- 
ghe è sufficiente Inviare alla stampante, 
sia da programma che in modo diretto, 
I seguenti comandi: 

OPEN6A6:PRINT #6,CHRS(d)rCLOS£6 

dove "d" è una variabile o un valore 
numerico compreso tra 0 e 127. 
Questo valore rappresenta il numero di 
“passi" di cui la stampante fa avanzare 
la carta ogni volta che riceve, tramite 
un file d! stampa e cioè con Indirizzi 
secondari 0-1-7, Il carattere CHR$ (131 
(“corriage return” - vai a capo). Ricor- 
diamo che un CHR$ (13) viene Inviato 
automaticamente alla stampante (o an- 
che allo schermo) ogni volta che una 
Istruzione PRINT o PRINT # non termi- 
na con una virgola o con un punto e vir* 
gola. 

Cerchiamo di capire cosa sono questi 
passi e, soprattutto, di misurare quanto 
sono lunghi. Un passo costituisce una 
piccolissima frazione di pollice (Il pollice 
è un’unità di misura anglosassone, che 
equivale a 2*54 centimetri); sulla lun- 
ghezza del passi, tuttavia, d troviamo 
In disaccordo col manuale fornito ìnsle- 
ma alla MPS-802. Esso afferma che un 
pollice è diviso in 144 passi, mentre noi 
ne abbiamo misurati, usando la nostra 
stampante, 216. 1 nostri passi sono 
quindi lunghi 1/216 dì pollice (circa 
0.0046 pollici), per cui risultano esatta- 
mente una volta e mezzo più corti di 
quelli del manuale. Non sappiamo se 
questa discrepanza sia dovuta a due di- 
verse * tarature" delle stampanti In 
commercio o semplice mente ad un er- 
rore del manuale: d limitiamo a segna- 
larla* 

In base alle prove effettuate sulla nostra 
MPS-802 abbiamo costruito una tabella 
con I valori da assegnare a u d* per otte- 
nere Le spaziature di uso più comune: 


l valori contrassegnati da (*) sono ap- 
prossimati, non esistendo un numero in- 
tero di passi tale da creare la giusta 
distanza tra le righe; tuttavia l’errore ti 
può considerare trascurabile. In parti- 
colare, per quanto riguarda la stampa 
con righe a contatto il valore di “d" è 
compreso tra 20 e 21, ma noi abbiamo 
scartato il valore inferiore, poiché crea 
una leggera, ma antiestetica sovrappo- 
stelo ne tra due righe adiacenti. Come 
vedremo più avanti, tale valore è molto 
Importante, in quanto è quello utilizzato 
nella spaziatura della stampa ad alta ri- 
soluzione. 

Analizziamo infine brevemente l’opzio- 
ne che consente dì selezionare 11 nume- 
ro di righe per pagina. Come nel caso 
precedente, si inviano alla stampante L 
comandi: 

OPEN3,4,3;PRINT a 3,CHR«r*CLOSE3 

dove “n" è un numero o una variabile 
il cui valore deve essere compreso tra 
14 e 127, Esso rappresenta il numero 
di righe effettivamente stampate In una 
pagina quando nella MPS-802 è attiva- 
ta la separazione di pagina. A tale nu- 
mero vanno aggiunte 6 righe vuote (la 
separazione), distribuite tre all’Inizio e 
tre alla fine dì ogni pagina* Ricordiamo 
che per attivare la separazione di pagi- 
na è sufficiente inviare, tramite un fUe 
di stampa {Indirizzi secondari 0-1-7), un 
CHRS (147); per disabilitarla si usa in- 
vece CHR$ (19), Quest’ultimo caratte- 
re, se la separazione è attivata, fa avan- 
zare la carta fino all’inizio della pagina 
successiva* Il valore di “n" all'accensio- 
ne della stampante (default) è 60: Infatti 
la lunghezza di pagina del tabulati stan- 
dard In modulo continuo è di 1 1 pollici, 
per cui stampando 6 righe per podice 
ne abbiamo 66 per pagina, dalle quali 
vanno sottratte le 6 righe di separazio- 
ne. 


n prorattM Wu 1 

All’accensione La MPS-802 viene inìzia- 
lizzata nel modo seguente: 

- numero di righe per pagina (n) - 60 
(lunghezza pagina « 66); 

- righe per pollice - 6 (d-36); 

- separazione di pagina disabilitata; 

- stampa messaggi di errore disabilita- 
ta. 

Per modificare questa “taratura" occor- 
re Inviare alla stampante, mediante 
l'apertura di opportuni file, determinati 
caratteri, che vengono Interpretati alla 
stregua di comandi* Tale procedura è 



indubbiamente un po' macchinosa, per 
cui abbiamo pensato dì proporvi un bre- 
ve programma (listato n, 1) che reinìzia- 
Uzza la stampante coi valori richiesti. 

Il programma gira su tutti I computer 
Commodore. Esso vi chiede innanzitut- 
to quante righe per pollice volete stam- 
pare (per mantenere il default premete 
RETURN) e se desiderate la separazio- 
ne tra le pagine; in caso positivo dovete 
introdurre il numero di righe per pagina 
(per tabulati da 11 pollici premete RE- 
TURN). Infine vi viene chiesto se gli 
eventuali messaggi di errore devono es- 
sere stampati* A questo punto viene re- 
stituito il controllo all'interprete BASIC, 
e la MPS-802 resta “programmata" nel 
modo selezionato finché non riceve ulte- 
riori comandi oppure non viene reìnlzìa- 
llzzata o spenta. Sarà quindi sufficiente, 
ogni volta che dovrete usare la stam- 
pante, caricare questo programmino 
nella memoria del vostro computer e 
dare il RUN: in pochi secondi La vostra 
MPS-802 verrà predisposta a stampare 
esattamente nel modo desiderato. 

V caratteri personalizzati 

Gli 8 byte che codificano un carattere 
programmabile vengono Inviati, tramite 
un file con indirizzo secondarlo 5, alla 
stampante, la quale li memorizza in 
un'apposita area della sua memoria; In 
seguito, ogni volta che tramite un file di 
stampa (Indirizzi secondari 0-1-7) viene 
Inviato un CHR$ (254) il carattere per* 
sonallzzato viene stampato. Abbiamo 
già accennato al fatto che tali caratteri 
non possono essere più di uno per riga. 
Per ovviare a questa limitazione è ne- 
cessario far ricorso al carattere CHRS 
(141) ("carriage return wfth no line 
feed" - vai a capo senza far avanzare 
la carta), che permette di stampare più 
righe sovrapposte (“overprlnting"). Con 
tale tecnica, che peraltro pud essere uti- 
lizzata anche per ottenere il “neretto" 
(facendo stampare più volte una certa 
scritta nello stesso punto), possiamo 
avere fino a 80 caratteri personalizzati 
sulla stessa riga. L'unico pìccolo proble- 
ma è la necessità di memorizzare in 
qualche modo il punto della riga in cui 
deve avvenire la stampa, dato che il 
CHR$ {141} fa “dimenticare" alla stam- 



pante a quale colonna era arrivata. La 
soluzione più semplice consiste ne 11' uti- 
lizzar e la funzione TAB del BASIC, 
usando come argomento una variabile 
contenente il numero della colonna In 
cui deve avvenire la stampa. 

Per chiarire ulteriormente le idee vi mo- 
striamo una breve routine che stampa 
tre caratteri personalizzati (tre piccole 
clessidre) sulla stessa riga. 

10 DATA 129, 195. 229. 2*9. 2*9. 229. 195. 129 
20 DATAI 29. 195. 167. I&7. LS7. 167. [95. 129 
30 DATA129, 195, 167, 1S9, 159, 167, 195, 129 
*0 GPEN5 4.5QPEN4.4 
50 FORI «CT 04STEPZ 

*0 AS-” FORJ- 1 TO0 READA AJ- A J+O (R HAI NÈXT 
70 Fftirrr * ÒM 

SO PHINT * 4.TAB CI) CHRS (2541 CHRS (1411: 

90 NEXTFRINT MCLQSE4 CLOSE5 END 

Linee 10-30 : dati che formano l tre 
caratteri, ricavati nel modo illustrato sul 
manuale della stampante. 

Linea 40: apertura del file con Indirizzo 
secondario 5, che serve ad inviare alla 
stampante un carattere programmabi- 
le, IJ quale viene memorizzato nell'ap- 
posito buffer; apertura del file di stam- 
pa. 

Linea 50: inizio del ciclo di stampa dei 
tre caratteri. 

Linea 60: ciclo di costruzione di ogni 
carattere a partire dalle 8 colonne che 

10 formano: ogni colonna é composta 
da 8 bit e costituisce quindi un byte. GII 
8 byte vengono “concatenati” per for- 
mare la stringa A5, 

Linea 70: la stringa AS. che contiene la 
codifica del carattere, viene inviata alla 
stampante tramite il file con Indirizzo 
secondario 5* 

Linea 80: viene stampato nella colonna 
opportuna (per mezzo della funzione 
TAB) il carattere CHR$ (254), seguito 
da CHRS [141} e da un punto e virgola, 

11 quale fa si che non venga inviato alla 
stampante anche un CHR$ {13}, con 
conseguente avanzamento della carta. 
Linea 90: fine del ciclo dì stampa, avan- 
zamento della carta e chiusura del file. 
Ci auguriamo che questo esemplo pos- 
sa esservi utile nella gestione dei carat- 
teri personalizzati. La routine è facil- 
mente modificabile, per stampare una 
maggior quantità di caratteri program- 
mabili su un’unica riga (aumentando il 
numero di Istruzioni DATA e II numero 
dì volte che 11 ciclo di stampa viene ese- 
guito}. 

Là itanpà ad alta liaalàzloàa 

li discorso della grafica ad alta risoluzio- 
ne è strettamente legato a quello del 
caratteri programmabili: infatti, per co- 
mandare i singoli punti della stampante 
dobbiamo comunque passare attraver- 
so un lungo {e piuttosto noioso) Lavoro 
di costruzione di caratteri personalizza- 
ti. In questo caso la distanza tra le righe 
deve essere dì 21 passi, in modo che i 
caratteri siano a contatto. Il secondo 
programma che pubblichiamo costitui- 
sce un esempio di come si possano 


sfruttare ai meglio le qualità grafiche 
della MPS802, 


Il prograàaa a* 2 

Esiste in circolazione molto software 
che crea o permette di creare spettaco- 
lari immagini ad alta risoluzione sullo 
schermo del C64, per cui pensiamo dì 
fare una gradita sorpresa a tutti coloro 
che possiedono tale computer ed una 
stampante MPS-802, presentando una 
routine in linguaggio macchina capace 
di copiare su carta le schermate hi-res 
del €64, Abbiamo strutturato tale routi- 
ne in modo analogo a quella scritta per 
le altre stampanti Commodore e com- 
parsa su SUPERCOMMODORE n, 4 
{" Stampare lo schermo ad alta risoluzio- 
ne"). 

lì programma (listato n. 2) memorizza il 
linguaggio macchina all'Interno del bloc- 
co di RAM che inizia da 49152 
($0000), In modo che non interferisca 
con la memoria BASIC, e consente di 
scegliere le dimensioni della stampa. 
Esistono Infatti ben tre grandezze possi- 
bili: 

1 = normale: un punto sul video corri- 
sponde a un punto della stampante; 

2 « doppia larghezza e doppia altezza; 

3 « tripla larghezza e doppia altezza. 

Il valore selezionato viene memorizzato 
nel byte di Indirizzo 2. Dato che II pro- 
gramma BASIC, dopo aver compiuto la 
sua funzione, si autodistrugge con un 
comando NEW, per cambiare in seguito 
la grandezza di stampa bisogna digitare 
POKE2,g t dove g può valere 1,2 oppu- 
re 3* 

La stampa dello schermo hi-res viene 
comandata con SYS5O0OO, e può esse- 
re Interrotta In qualsiasi momento pre- 
mendo Il tasto RUN/STOP. Tale SYS 
può venire inserita nel programma che 
crea P immagine ad alta risoluzione e 
funziona soltanto se, al momento In cui 
viene eseguita, lo schermo contiene la 
pagina grafica. È tuttavia possibile ef- 
fettuare la stampa di un disegno in me- 
moria anche mentre questo non appare 
sul video, cioè quando lo schermo è In 
bassa risoluzione, a patto di conoscere 
quale area di memoria contenga la pagi- 
na grafica. Sì deve allora effettuare una 
POH E nella locazione 900, assegnando- 
le Il valore del byte alto dell'Indirizzo 
Iniziale dello schermo hi-res: se, ad 
esempio, la pagina grafica inizia alla lo- 
cazione 57344 ($E000), si deve digitare 
POKE 900,57344/256. In questo caso 
la stampa viene attivata con SYS 
50032. 

Può capitare che non abbiate la più pal- 
lida Idea riguardo alla posi zone in me- 
moria della pagina grafica. In tal caso 
non perdetevi d'animo: tenete presente 
che una schermata ad alta risoluzione 
occupa ben 8000 byte {quasi 8 Kbyte) 
e che ci sono solo 8 blocchi di 8 Kbyte 
nella memoria del vostro C64, Potete 
quindi procedere per tentativi, in quan- 
to non sono molti I valori assegnabili alla 
locazione 900, 
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Vediamoli: 

PQKE 900.3? tirano tcWrmo hw« - 32'2^ - 0]92 
- 12000» 

POKE 900,64 (invio « M’25* - 16384 - $40001 
POKE 900.96 lini» - 9*’2$* - 24676 - 16000) 
POKE 900.12» {nuM - 12T2S6 - 3276» - 18000) 
POKE 900.160 CMdo - 160*25* - 40960 - fÀOOO) 
POKE 900.224 (Wtìo * 224*256 - S7344 - $£000» 


Abbiamo escluso che la pagina grafica 
inizi da 0 (questo blocco non viene mal 
usato) oppure da 49152 {in questo caso 
cancellerebbe la nostra routine). Riassu- 
mendo* se avete uno schermo hi-res me- 
morizzato che inizia (per esempio) da 
16384 e lo volete stampare* digitate: 

POKE900 P 64:SYS50032 


Per concludere, vi diamo un'ultima in- 
formazione, di cui dovete tener conto 
nel selezionare le dimensioni della stam- 
pa. Sono sufficienti circa 4 minuti per 
una riproduzione a grandezza naturale 
(g*l); se però desiderate gli Ingrandi- 
menti (g-2 oppure g-3) t sappiate che 
il tempo di stampa sale rispettivamente 
a 30 e a 45 minuti circa. , 


Prorana 1 

100 DATAI 00, 72, 54, 43, 36, 31, 27, 24: rem 77 
H O F0RI-2T09:READR(I) iNEXT :rem 20 0 

120 PRINT" {CLR} (rvs) INIZIALI ZZA 

{ 2 SPAZI lMPS-802" srem 14 

130 FRI UT" { 2 GIU ' } ACCENDI LA STAMPANTE" : 

PRINT"E PREMI UN TASTO * 11 : rem 209 

140 GETA$ ; IFA$-"”THENl 40 :rem 77 

1 50 OPEN3 , 4,3; GPEN4 , 4 r 4 :OPEN6 ,4,6: GFEN8 , 4 
, O :QPEN1 0,4,10 :r em 152 

160 PRINTIIO srem 168 

170 FRI NT” { 2 GIU’lRIGHE PER POLLICE 
{ 2 SPAZ I } 6 { 4 SIN}"? iINPUTD 

: rem 220 

180 IFD<20RD>9THENPRINT” { 4 SU } " : GOTOl 70 




; rem 

133 

190 

PRINT# 6 ,CHR$ ( R (D ) ) 

: r em 

229 

Pfoì 

100 

|ranM 2 

INPUT" {CLR} { WHT } GRANDEZZA 

0-2-3) 

* ? WI 


5 

; rem 

227 

110 

IFVAL ( WI $ ) <1 ORVAL ( WI $ ) > 3THEN? 00 




: rem 

60 

120 

FOKE2 , VAL (WI$ ) 

; rem 

24 

1 30 

1-50000 

; rem 

15 

140 

READAs IFA-2 56THEN1 70 

: rem 

157 

ISO 

PRINT" tCLR] MEMORIZZAZIONE 

LINGUAGGIO 


MACCHINA" ; POKE646, A 

: rem 

205 

160 

POKE I, A: I-I+l ;CH-Crt+As GOTOl 40 




s rem 

226 

170 

IFCHOS81 83THENPRINT" {GIU' 

} { WHT} ERRO R 


E NELLE ISTRUZIONI DATA" s END : rem 

213 

180 

PRINT" {GIU 1 }£ WHT } SYS 50000 

PER INIZIA 


RE LA STAMPA”: NEW 

: rem 

45 


50000 DATA173, 0,221 ,41 ,3,73,3,160 

: r em 1 1 1 

50000 D ATA6 ,1 0,1 36,206,252,141 ,132,3 

; rem ì 4 

5001 6 DATAI 73,24,208,41 ,6,2*0,9,2 4 

treni 183 

50024 DATAI 6 9, 32, 109, 1 32, 3, 1 41 ,132,3 

: rem 1 6 

500 32 DATAI 6 9, 1 5, 1 41 ,1 82,3,1 65,2,201 

: rem 19 

5004 0 DATAI ,240,5,1 69,14,1 41 ,1 62,3 

: rem 1 72 

5004 8 DATAI 69, 0,32, 1 89, 255, 1 69, 6, 168 

: rem 55 

50056 DATAI 62,4,32,1 86,255,32,1 92,2 55 

: rem 63 

50064 DATA162, 6, 32, 20? ,255,176,3,76 

:rem 238 

50072 DATAI 57,195,76,30,197,169,21 ,32 

: rem 97 

50080 DATA21 0,255,1 69,1 3,32,21 0,255,32 

: rem 1 ? 9 

50088 DATA204 , 255, 169,0,32,1 69,255,169 

tre® 152 


200 PRINT" (GIU 1 /PAGINE SEPARATE 



{ 2 SPAZI }S { 4 SIN; 

: INPUTP3 

: rem 

189 

210 

IFPS«"N"THEN260 

: rem 

44 

2 20 

FRI UT" {GIU 1 J RIGHE PER PAGINA "D*n 

-6" 


{ 5 SIN}»; : INPUTR 

: rem 

91 

230 

IFR< } 40RR> 1 27THENFRINT" { 3 SU}":G0T02 


20 

: rem 

156 

240 

PRINT# 3 ,CHR§ (R) 

: rem 

73 

2S0 

PRINTI8 ,CKR$ (1 47) 

: rem 

153 

260 

PRINT" {GIU ' } MESSAGGI 
{ 2 SPAZIJS { 4 SIN) 

ERRORE 

:INPUTE$ 

: rem 

206 

270 

IFES “"N" THEN290 

: rem 

42 

260 

PRINT44 

: rem 

126 

290 

C LOS E 3 : C UOSE 4 : CLOSE6 

i CLOSE8 iCLOSEl 0 

: rem 7 

300 

PRINT" { 2 GIU’ HRVS} 

OK ":END 

trem 

67 


50096 DATA5, 166, 162, 4, 32, 186, 255, 32 

: rem 248 

50104 DATAI 92, 2 55,1 69,0, 32 , 1 09,255, 1 69 

tre® 147 

501 1 2 DATA*,! 70,160,0,32,1 66,255,32 

: rem 22 3 

50120 DATAI 92, 255, 162, 4, 32, 201, 255, 169 

:rem 127 

50128 DATA? 3,32,210,255,32,204,255, 169 

:re® 125 

50136 DATA0, 141, 142, 3, 24, 173, 132, 3 

tre® 167 

50144 DATA105, 30, 141 ,143,3,169,40,141 

: rem 64 

50152 DATAI 92,3,165,2,201 ,1 ,240,5 

; rem 1 1 9 

501 60 DATAI 69, 2, 141, 157, 3, 173, 142, 3 

srem 231 

501 68 DATAI 33, 251, 173, 143, 3, 1 33, 2 52, 169 

: rem 1 83 

501 76 DATA25, 141 , 1 97 , 3 , 1 69 , 1 , 1 41 , 21 2 

trem 30 

501 84 DATA3, 169, 8, 141 ,202,3,162,5 

; rem 134 

501 92 DATA32,201 ,255,1 65,2,201 , 1 ,208 

: rem 15 

502OO DATA6, 32, 3 4,1 97,76, 100, 1 96,32 

tram 235 

50208 DATA34, 197, 174, 157, 3, 224,1 ,206 

tram 36 

50216 DATA5,41 ,15,76,52,196,41 ,240 

srem 187 

50224 DATA74,74,74,74 f 168, 162,4, 169 

tram 3 

50232 DATA0, 141 ,162,3,169,1 ,141,167 

s rem 225 

50240 DATAI, 169,3,141 ,1 72,3,152,45 

srem 179 

50248 DATAI 67,3,240,9,1 73, 1 62,3,? 3 

tram 188 
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502 56 DATAI 72,3,141 ,162,3,14,167,3 

i rem 1 81 

50264 DATAI 4, 172,3,1 4,1 72,3,202,208 

: rem 225 

50272 DATA229, 1 73, 16^ , 3 ,32, 21 0, 255,206 

srem 126 

50280 DATA202 ,3,240,3/76,19,196,169 

srem 244 

50288 DATAI 3,32,21 0,255,32,204,255, 162 

: rem 125 

50296 DATA4,32,201 ,255,174,212,3,202 

srem 20 

50304 DATA240, B , 169,32,32,210,255,76 

: retri 30 

50312 DATAI 27, 196,173,182,3,32,210,255 

arem 12B 

50320 DATAI 66, 2, 224, 3, 208, 5, 169, 14 

S rem 1 82 

50328 DATAI 2, 210, 2 5S, 169, 2 54, 32, 21 0,2 55 

s rem 1 79 

50336 DATAI 69, 1 41 ,32,210,255,32,204,255 

50344 DATAI 73,212,3,24,101 ,2,141 ^212 

s rem 6 

50352 DATA3,32,234,255,32, 225, 255,208 

: rem 76 

50360 DATAI, 76, 2, 197, 196, 252, 56, 165 

iram 1 

50368 DATA251 ,233,64,133,251 ,176,2,196 

irao 143 

50376 DATA252,206, 197,3,240, 3, 76,9 

: rem 1 99 

50384 DATAI 96, 162, 4, 32, 201, 255, 169, 13 

srem 87 

50392 DATA32, 21 0,255, 32, 204, 255, 165,2 

: rem 74 

50400 DATA201 ,1 ,240,8,206,157,3,240 

i rem 215 


50408 DATAI, 76, 245, 195 ,24, 173, 142, 3 

: rem 244 

50416 DATAI 05, 8, 1 41 ,142,3,144,3,238 

: rem 229 

50424 DATAI 43, 3, 206, 192,3,240,3,76 

: rem 181 

50432 DATA234, 195,162,4,32,201 ,255,169 

srem 133 

50440 DATAI 3, 32, 21 0,255, 32, 204, 255, 162 

S rem 1 1 5 

50448 DATA6, 32, 201, 255, 169, 36, 32, 210 

S rem 30 

50456 DATA255, 169,13,32,210,255,32,231 

: rem 129 

50464 DATA255, 96,120, 162, 52, 134,1 ,172 

: rem 82 

50472 DATA202, 3, 136,177,251 ,162,55,134 

srea 131 

50480 DATAI, 88, 96, 256 : rem 76 


ERBATA CORRIGE 

Nel programma 
"Paratrooper par 
C64" pubblicato cui 
numero 5* Il valor# 
dalla variabile MB 
In Un «a 166 
va modificato da 
53246 la 53264. 
Ci scusiamo 
cou I lettori. 


Par ricavar# la rivlata anatrata 
di SU PERCOMM ODORE eoa casearia 
compilata a spedita il eaapea «al sotto! 


SUPE2COMMODORE 

CEDOLA 01 ORDINAZIONE RIVISTE ARRETRATE COR CASSETTA ALLEGATA 
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Jton- VMM A#tl*ft S ■ 20124 Mitra ■ Tal 5668226 

di MiWCOWBOOM cm caaiilf .Almo 


BUONO D'ORDINE PER RIVISTE ARRETRATE 
Anche sa l'ordine riguardasse la sola cassetta, questa 
verri comunque Inviata Insieme alla rivista al prezzo In- 
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OK-LIST 

di E* 8«rciu 

S appiamo tutti quanto ila difficile di- 
gitare correttamente un programma 
(ovvia mente t se non si dispone della 
cassetta allegata a SUPERCOMMO- 
DORÈ!). Errori di battitura anche banali 
possono provocare Li malfunzionamento 
del programma stesso, o anche il blocco 
completo del sistema, obbligandoci a ri- 
fare 11 lavoro. 

Ma il punto di forza del calcolatori è che 
essi eccellono net compiti noiosi e che 
richiedono precisione. Scoprire un erro- 
re nella battitura di un listato I appunto 
un compito noioso, quindi perché non 
sfruttare 11 tuo computer per controllare 
l listati da te digitati? 

E proprio questo lo scopo di OK-LIST. 
U programma che ti permetterà di ri- 
sparmiare tempo e fatica. Annidato al- 
l'Interno del tuo computer, OK-LIST 
controlla automaticamente ogni riga 
battuta, mostrandoti un numero in cima 
allo schermo ogni volta che premi il ta- 
tto RETURN, Un numero corrisponden- 
te nel listato del programma pubblicato 
tl permette 11 confronto, ed uno sguardo 
è sufficiente per avere la conferma di 
aver digitato la linea correttamente. 
OK-LIST è un breve programma In lin- 
guaggio macchina residente nel buffer 
del registratore. Esso rimane In tale zo- 
na finché spegni il computer o usi l'unità 
a cassette. 

Coese digitare OK-LIST 

Vi sono due versioni di OK-UST» una 
per C64 e VIC 20 e l’altra per C16 e 
Plus/4. Digita la versione adatta al tuo 


computer, facendo attenzione a non 
commettere errori (per fortuna II listato 
è molto breve!). Dopo aver finito salvalo 
su disco o nastro, per b meno un paio 
di volte, prima di mandarlo In esecuzio- 
ne con II comando RUN, perché il pro- 
gramma 8 ASIC, dopo aver memorizza- 
to la routine In linguaggio macchina (le 
istruzioni DATA}, si auto cane ella. 
Cerni ai ssa OK-LIST 
A questo punto puoi Iniziare a battere 
il tuo primo listato “a prova dì errore". 
Se non hai OK-LIST in memoria, carica- 
lo e attivalo con RUN. 

Digita quindi La prima linea di program- 
ma: come puoi vedere. In fondo ad essa 
c'è la parola *:rem" seguita da un nu- 
mero, che sì chiama checksum. 

NON COPIARE QUESTA PARTE 
DELLA LINEA! Ora premi 11 tasto RE- 
TURN, come al solito. In alto a sinistra 
apparirà il checksum; confrontalo con 
quello che vedi scritto sulla rivista dopo 
“'rem". Se I due numeri sono uguali, 
vuol dire che La linea è stata digitata 
correttamente, altrimenti controllala, 
perché evidentemente hai commesso 
un errore. Facile, no? 

OK-LIST non è pignolo per quel che 
riguarda gli spazi bianchi, dato die non 
fa caso alia loro presenza. Ciò toma a 
tuo vantaggio, dal momento che la spa- 
ziatura non è, in genere, importante. 
Ma all'interno delle Istruzioni PRINT gli 
spazi spesso si rivelano necessari, quin- 
di presta attenzione quando digiti que- 
sto tipo di Istruzione. Un'altra cosa a 
cui devi badare è che usando le forme 
abbreviate dei comandi (ad esemplo ? 
per PRINT) il checksum visualizzato 
non coinciderà con quello presente sul 
listato. Ciò è tuttavia risolvibile, pre- 


mendo Il tasto RETURN su una linea 
dopo averla batata: le abbreviazioni sa- 
ranno ricodificate nella loro forma Inte- 
ra e quindi OK-LIST sarà In grado di 
svolgere perfettamente la sua funzione. 
In questo modo, Inoltre, avrai la possibi- 
lità di controllare Interi gruppi di righe 
In una volta sola. 

Ovviamente, nessuno è perfetto, ed an- 
che OK-U5T ha qualche limite: se per 
caso ti capitasse (ma è un errore poco 
frequente) di “anagrammare" durante 
la digitazione una linea (per esemplo 
invece di battere IO PRINT" VAI’, digiti 
per errore 10 PRINT“VIA’), OK-LIST 
non se ne accorgerebbe. Inoltre la pre- 
senza del carattere SH1FT-SPA2IO mo- 
difica il numero di checksum rispetto al 


Mucutvjv normale, ancne se la 

differenza non risulta visibile sul video 
del tuo computer. 

Se intendi sospendere il lavoro di digita- 
zione - o lo hai terminato - puoi salva- 
re su nastro o disco il tuo programma: 
ricordati comunque di premere RUN/ 
STOP e RESTORE su VIC 20 e C64 
oppure RUN/STOP e RESET su C16 
f „/4 Prkna di dare il comando SA- 
VE, Al momento di riprendere il lavoro, 
tuttavia, non potrai più utilizzare OK- 
LIST, dal momento che qualsiasi opera- 
zione su cassetta lo distrugge 
Se vuoi disabilitare OK-LIST In qualun- 
que momento, senza perdere il tuo pro- 
gramma in memoria, premi RUN/ 
STOP e RESTORE su VIC 20 « C64 
oppure RUN/STOP e RESET su C16 
e Plus/4, Per riattivarlo, batti: 


SYS 886 
Buon lavoro! 


OK-LIST 

vtrrioM per Vie 20 • CM 


10 PRINT" {CLR} ATTENDERE PREGO* * 

M 

11 PORI Sàio MH 0:REAOA:CK-CK+A 
: POKEI , A; NEXT 

12 IfCKOl 471 4THENPRINT" (GIU 1 }E 
PRORE WELLE ISTRUZIONI DATA* 
I END 

13 SYS886 ì PRINT* (CLR} { 2 GIU 1 } 
OK-LIST ATTI VATQ * * : NEW 

14 DATAI 73,034,003,201 ,150,208 

15 DATA001, 096, 141 ,151 ,003,173 
1« DATA035, 003,1 41 ,152,003,169 


17 DATAI 50,141 ,034,003,149,003 

18 DATAI 41, 035,003,1 69 , 000,1 33 

19 DATA006, 096 ,032,232,235,133 


20 DATA003, 134, 004,132, 005,008 

21 DATA201 ,013,240,017,201 ,032 


22 DATA24 0 ,005, 024 ,101 , 006 , 1 33 

23 DATA006 , 1 65,003,166, 004 ,164 

24 DAT AD 05 ,040, 096 , 169,013,032 

25 DATASI 0,255,1 65,205,1 41 ,251 


26 DATA0 03,206,251 , 00 3 , Ij6 9 , 0 00 

27 DATAI 33,207, 169,01 9,032,210 

28 DATA? 5 5, 1 69,01 3,032 ,210,255 

29 DATAI 69,058 ,032,210,255,166 

30 DATA006, 169,000,133,006,1 72 
11 DATA1S1 ,003,192,232,208,006 

32 DATAQ 32 ,095,164 ,076 ,235, 003 

33 DATA0 12 ,007,208,169,032,032 

34 DATA21 0, 255 , 032 ,210,255,173 

35 DATA2S1 ,003,133,205,076,173 

36 DATA003 

OK-LIST 

>n*lM« par C1C • Pta*/4 

10 FRI UT* ( CLR ) ATTENDERE PRKGO. . 
^ « 

11 PORI *8 86T01 0 1 8 ; READ A : CK -CK+A 


* POKEI , A: NEXT 

12 If CROI 7539 THKN PRtWT" 

(GIU 1 ) ERRORE WELLE ISTRUZ IQN 
I DATA"! END 


13 STSB86: PRINT* (CLR}{ 2 GIU*} 
OK-LIST ATTIVATO * * i NEW 


14 DATAI 73, 036, 003, 201 ,150,208 

15 DATA001 ,096,141 ,151 ,003,173 

16 DATA037 , 003,1 41 ,152,003,169 

17 DATAI 50, 141, 036 ,003 ,169, 003 

18 DATAI 41 ,037,003,169,000,133 

19 DATA254, 096, 032, 087,241 ,133 

20 DATA2 51,134,252,132,253,008 

21 DATA201 ,013,240,017,201,032 

22 DATA240, 005, 024, 101 ,254,133 

23 DATA254 , 1 65 , 251 ,166,252,164 

24 DATA253, 040, 096, 169, 013,032 

25 DATASI 0 , 255, 165,214,141 ,251 
36 DATA0Q3, 206, 251, 003, 169,000 
27 DATAI 33,216,169,019,032,210 

26 DATA355, 169, 018, 032,210, 255 

29 DATAI 69,058,032,210,255, 166 

30 DATA254 ,169, 000 ,133,254,172 

31 DATAI 51 ,003,192,087,208,006 

32 DATA032, 205, 189,076,235,003 


33 DÀTA032,205, 221 , 1 69,032 ,032 

34 DATA210, 255,032,210,255,173 

35 DATA251 ,003,133,214,076,173 

36 DATA003 
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Qitfta brtvt «4 «tilt roatts* 

dleaMata mm dUco l« varatoli 
•nionata dal profranna BA- 
SIC ni «iato «tato lavorando, 
coatltiaido «a alato pratloao 
pareli abita la toaa iaealalva- 
rlHcaao fraqaaatl black-out 
•lettrici. La varaloaa par VIC 20 

«*pusIoftl di smorta. 

S a vi alata già Imbattuti, lavorando 
aul calcolatore. In un black-out elet- 
trico, In un grosso sbalzo di tensione, o 
se soltanto qualcuno è Inciampato nel 
cavo di alimentazione del computer, 
provocando la perdita Irreparabile dal 
programma su cui stavate lavorando da 
quattro ore filate, apprezzerete senz'ai* 

r > futilità di questo programma. 

facile Infatti raccomandare a tutti di 
effettuare periodici salvataggi del prò* 
grammi su cui si sta lavorando: in reai* 
tà, quando le Idee scorrono veiod In 
mente è altrettanto facile dimenticarse- 
ne o rimandare progressivamente LI sal- 
vataggio. NO ZAP non solo vi ricorda 
questa Incombenza, ma se ne fa addirit- 
tura carico, automaticamente e periodi- 
camente. 

Una volta mandato In esecuzione NO 
ZAP, ed Inserito un nome di file, il prò* 
gramma salverà ogni dieci minuti la ver* 
sione del programma che avete in me- 
moria, aggiornandone il nome. Non do- 
vrete compiere alcuna operazione parti- 
colare: tutto avverrà automaticamen- 
te. 

Ogni dieci minuti NO ZAP attende che 
abbiate finito di digitare la linea su cui 
state lavorando e appena premete RE* 
TURN, per inserirla in memoria, salva 
tutto U programma su disco. 

NO ZAP funziona anche eon alcune uti- 
lity o programmi di aiuto per la digita- 
zione del listati: funziona ad esempio 
Insieme a OK-L15T, ma non con SPEED- 
SCRIPT o MLX (dal momento che 
MLX è un programma BASIC, NO ZAP 
farebbe un back-up di MLX stesso. In ve* 
ce che del programma in linguaggio 
macchina che state digitando., J. 

3é SWOrcONMQDOItE* 7/SS 
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NO ZAP funziona anche Insieme al 
DOS 5 . 1 ed a molti tipi di Wedge. 

NO ZAP tiene conto delle dimensioni 
del programma sul quale state lavoran- 
do ed aggiunge automaticamente un nu- 
mero progressivo di versione al] 'inizio 
del nome del file usato per U salvatag- 
gio. Sono disponibili fino a 100 versioni 
diverse (100 versioni # 10 minuti ■ 17 
ore di lavoro continuato) numerate da 
01 a 100, mentre al raggiungimento 
della 101-nesima U conteggio riparte da 
00. Esistono solo due limiti non valicabi- 
li da NO ZAP: lo spazio libero sili disco 
e lo spazio libero sulla directory; se non 
d sono blocchi liberi a sufficienza* Il pro- 


gramma non verrà salvato e si ricordi 
che la directory pud contenere al massi- 
mo 144 nomi di fUe. 

Cose mmmrm NO ZAP 

Il programma, una volta caricato e man- 
dato in esecuzione, inserisce tramite 
istruzioni POKE una routine In linguag- 
gio macchina a partire dalla cima cor- 
rente della memoria BASIC e la proteg- 
ge dalle variabili BASIC, NO ZAP usa 
inoltre le locazioni di memoria da 739 
a 767, che naturalmente non dovranno 
essere usate da altri programmi. Dopo 
avere dato il RUN a NO ZAP vi verrà 
chiesto: 



F1LENAME? 

Digitata un nome di file senza virgolette, 
composto da un numero di caratteri 
compreso tra zero e quattordici, e pre- 
mete RETURN (non cercate di usare un 
nome di file più lungo di quattordici ca- 
ratteri, perché ciò provocherebbe il 
blocco del computer!). Non dovete ag- 
giungere ai nome il numero della versio- 
ne, perché NO ZAP provvede automa- 
ticamente ad aggiungerlo per conto vo- 
stro. Infine digitate NEW e premete RE- 
TURN. 

Da questo punto In poi dimenticatevi 
pure di NO ZAP: esso agirà autonoma- 
mente e voi potrete tranquillamente sal- 
vare, caricare, eseguire e verificare, co- 
me sempre, I programmi sul quali state 
lavorando. La prima volta che NO ZAP 
esegue un salvataggio usa un numero 
dì versione 01; per esempio, se usate 
come nome di file PIPPO, la prima ver- 
sione sarà OIPIPPO, la seconda Q2PIF* 
PO e così vìa* NO ZAP visualizza lo 
stato del disco dopo ti salvataggio, ma 
non ripete l'operazione in caso di erro- 
re. 



Occasionalmente, potreste voler salva- 
re una nuova versione prima del prossi- 
mo salvataggio effettuato da NO ZAP. 
Oppure potreste voler disattivare tem- 
poraneamente NO ZAP, perché andate 
a colazione o comunque Interrompete 11 
lavoro per riprenderlo dopo un certo 
tempo. Per ottenere questi scopi usate 
rispettivamente le istruzioni (In modo di- 
retto): 

SYS 739 (salvataggio forzato) 

SYS 745 (interruttore acceso/ spento) 

La SYS 739 Incrementa il numero di 
versione e salva II programmai NO ZAP 
ripristina a zero il suo timer ed il salva- 
taggio successivo avverrà dopo dieci 
minuti dalla SYS. 

La SYS 745 funziona come un interrut- 
tore: se NO ZAP è attivo, con questa 
SYS viene disattivato, mentre se è di- 
sattivato, questa SYS provvede a riatti- 
varlo (come se gli fosse stato dato ti 
RUN per la prima volta). 

Alesai trmcchetti 

NO ZAP è stato scritto In modo da non 
interferire con la vostra programmazio- 
ne: RUN/STOP+RESTORE quindi non 
lo disattiva. L'unico modo per cancella- 
re NO ZAP dalia memoria del compu- 
ter è spegnere Quest'ultimo, oppure 
eseguire una SYS64738 sul €64, o una 
SYS64S02 sul VIC 20. 

Se, una sera, lavorando ad un program- 
ma decidete di andare a dormire una 
volta giunti alla versione 04 PIPPO, ti 
giorno dopo potrete utilizzare ancora 
PIPPO come nome del file* togliere il 
disco dal drive e dare quattro volte la 
SYS 739; quindi spegnete e riaccende- 
te ti drive: così facendo, NO ZAP conti- 


nuerà a salvare, partendo dalla versione 
05P1PPO. 

Dal momento che i numeri dt versione 
sono posti airinizio del nome del file, 
potete listare sullo schermo tutte le ver- 
sioni fino ad ora salvate, usando: 

LO AD“$i? ?PIPPO" ,8 [RETURN] 

LIST [RETURN] 

oppure, se usate il DOS, con 

@ $:?? PIPPO 

Una volta finito di lavorare sul program- 
ma potreste voler cancellare dal disco 
tutte le versioni intermedie registrate 
da NO ZAP. Od si ottiene con: 

OPEN 15,8, I5/ , S:??PIPPG": 
CLOSE15 

oppure, se usate 11 DOS, con: 
@S:>?PlPPO 

Assicuratevi dì aver prima salvato la 
versione definitiva su un altro disco, op- 
pure sullo stesso disco, ma con un altro 
nome. 

Cose lavora NO ZAP 

NO ZAP trae vantaggio dal fatto che 
molte delle routine dell' interprete BA- 
SIC e del sistema operativo sono vetto- 
rizzate. Un vettore è una specie di tavo- 
la che dice al computer la locazione di 
una routine. Dal momento che il vettore 
è in RAM, esso può essere modificato 
per puntare ad un'altra routine apposi- 
tamente approntata. Un programma 
che usa questa tecnica è chiamato 


Diurna bU t o dalla 
ronfio* (per €64) 


- r 

9200 

AD 

EC 

02 

LDA 

$02EC 

* l 

9E03 

49 

01 


EOR 

I$Q1 

* f 

9205 

8D 

EC 

02 

STA 

$ 02EC 

• » 

9E0B 

DO 

OD 


BNE 

89e1 7 

m t 

9E0A 

A9 

63 


LDA 

#$63 

* 9 

9B0C 

60 

02 

03 

STA 

$0302 

- t 

9E0P 

A9 

A4 


LDA 

«$A4 

* t 

9ET1 

SD 

03 

03 

STA 

$0303 

* t 

9E1 4 

4C 

83 

A4 

JMP 

$A4 83 

* f 

9E1 7 

A9 

30 


LDA 

#$30 

* f 

9E19 

8p 

EP 

02 

STA 

$02EF 

* 9 

9E1C 

8D 

PO 

02 

STA 

$02F0 

* f 

9E1F 

A9 

D2 


LDA 

#$D2 

* f 

9E21 

A0 

9E 


LDY 

489E 

m § 

9E23 

20 

1E 

AB 

JSR 

$ ABI E 

* 9 

9E26 

20 

F9 

AB 

JSR 

$ABF9 

* 9 

9E29 

A0 

02 


LDY 

#$02 

* 9 

9E2B 

B9 

FE 

OT 

LDA 

$ 0 1 FE , Y 

* 9 

9E2E 

99 

EF 

02 

STA 

$ 0 2 EP f Y 

* 1 

9E31 

PO 

03 


BEQ 

$ 9E36 

* 9 

9E33 

CB 



INY 


* f 

9E34 

DO 

F5 


SNE 

$9E2fì 

• 9 

9836 

8C 

ED 

02 

STY 

$02ED 

* 9 

9E39 

A2 

53 


LDX 

#853 

* 9 

9B3B 

A0 

9E 


LDY 

#$9B 

* 9 

9E3D 

Se 

02 

03 

STX 

$0302 

* f 

9B40 

se 

0 3 

03 

STY 

$0303 

• f 

9E43 

A9 

01 


LDA 

#$01 


-, 9E45 8D EE 02 STA 802EB 
- , 9E43 A9 00 LDA 1500 
9E4A 80 08 DC STA S0CQ8 
•i 9E4D 80 09 DC STA $DCQ9 
9E50 0D 0A OC STA $DCQA 
*, 9E53 AO 0A DC LDA $DC0A 
9ES6 29 PO AND #$F0 
-r 9E58 F0 75 BEQ S9BCF 
ìi 9E5A CE EE 02 DEC $02EE 
*i 9E5D 00 B9 BNE $9E4 8 
*# 9B5F EE PO 02 INC $Q2F0 
9E62 AD PO 02 LDA $02F0 
9E6S C9 3A CMP #$3A 
-i 9E67 00 14 BNE 89E7D 
•i 9E69 A9 30 LDA 1830 

• i 9E6B 80 PO 02 STA $02 PO 
. $ 9E6E EE EP 02 INC $02EP 
■ , 9E71 AD EF 02 LDA $02£F 
. * 9E74 C9 3A CMP #$3A 

. t 9E76 DO 05 BNE $9E?D 
9E76 A9 30 LDA #830 

* f 9E7A 8D EP 02 STA S02EF 
*i 9E7D AD ED 02 LDA $02ED 
w 9E80 A 2 EF LDX #$EF 

« i 9E82 A0 02 LDY « $02 
. f 9E84 20 BD FF JSR $FFBD 
9E87 A9 01 LDA #801 
.i 9E89 A2 08 LDX #808 
. r 9E8B A0 00 LDY #800 
* , 9E8D 20 BA FF JSR 8FFBA 
« i 9E90 A9 2S LDA #$2B 
* i SE92 A6 20 LDX $2D 
, i 9E94 A4 2E LDY $2E 

9E96 20 D0 FF JSR $ FFD8 - 
9E99 A9 8D LDA #$8D 
9E9B 20 D2 FF JSR $FFD2 
9E9E A9 00 LDA #$00 
« # 9EAQ 20 BD FF JSR SFFBD 
9EA3 A9 0F LDA #$0F 
.i 9EA5 A2 08 LDX #80 8 
- , 9EA7 A0 0F LDY #$0P 
*> 9EA9 20 BA FF J$R $FFBA 
9 E AC 20 CO FF JSR $FFC0 
.i 9EAF A 2 OF LDX #$0p 
. , 9EB1 20 C6 FF JSR $FFC6 
. , 9EB4 20 CP FF JSR $FFCF 
** 9EB7 C9 OD CMP #$0D 
■ , 9EB9 FO 06 BEQ S9EC1 
-, 9EBB 20 D2 FF JSR $FFD2 
m 9EBE 36 SEC 

*, 9EBF B0 F3 BCS 89EB4 

-, 9EC1 20 D2 PF JSR $FFD 2 

*# 9EC4 A9 0F LDA #80F 

9EC6 20 C3 FF JSR $FFC3 

9EC9 20 CC FF JSR $FFCC 

W 9ECC 4C 43 9E JMP $9B43 

9BCF 4C 83 A4 JKP $A483 

-, 9 ED 2 12 

. , 9 ED 3 4E 4P 5A LSR 85A4P 
• r 9ED6 41 50 EOR ($50, X) 
-, 9ED8 92 

-, 9 ED 9 20 42 59 JSR $5942 
9EDC 20 42 4C JSR 84C42 
-, 9 EOF 41 4B EOR ($4B,X) 
-r 9EE1 45 20 EOR $20 
. , 9EE3 4C 41 4D JMP $4D41 
*, 9EE6 42 

9EE7 45 52 EOR $52 
-, 9EE9 54 

-, 9EEA OD 46 49 ORA $4946 
-, 9EED 4C 45 4 E JMP 34E45 
9EF0 41 4D EOR ($4D,X) 
9EF2 45 00 EOR $00 
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“Wedge”. NO ZAP costruisce una “de- 
viazione” nel ciclo principale dell inter- 
prete BASIC* in modo che il controllo 
venga passato a NO ZAP stesso ad ogni 
pressione del tasto RETURN, Quando 
si dà il RUN a NO ZAP, e si inserisce 
il nome del file, quest'ultimo viene me- 
morizzato in un apposito buffer, subito 
dopo il numero di versione corrente, li 
vettore nelle locazioni $302 e $303, 
che punta al ciclo principale BASIC, 
viene alterato ed uno dei timer interni 


al computer è posto a zero. NO ZAP 
legge il valore di questo timer ogni volta 
che viene premuto il tasto RETURN (e 
quindi inserita una linea BASIC): la ver- 
sione per C64 utilizza uno dei due TOD 
[Time Of Day} disponibili nel computer 
nelle locazioni $Dfc08-*DCGA, mentre 
la versione per Vie 20 legge il “jllìy 
clock" nelle locazioni $AQ-$AL Le ape- 
razioni di input/output su nastro posso- 
no quindi falsare gli intervalli di tempo 
tra un salvataggio e l'altro nella versta- 


ne per VIC 20. Se il timer non ha anco- 
ra contato l'equivalente di dieci minuti, 
NO ZAP ripassa il controllo all'Interpre- 
te BASIC (in $A483 nel C64, $C483 
nel VIC 20), 

Dal momento che NO ZAP modifica il 
vettore principale nelle locazioni $302 
e $303, non è compatibile con altri 
“Wedge” che utilizzano le stesse loca- 
zioni. A parte viene riportato il disas- 
semblato di NO ZAP versione per C64, 
ottenuto tramite il SU PER MONITOR. 


No Zap versione per VIC 20 

2 PGKE 5 6 , PEEK { 5 6 ) - 1 : CLR : I a 2 56 * PEEK ( 56 ) + PE 
EK ( 5 5 ) ; S"I :rem 216 

4 DEFFNH { X ) « I NT ( X/ 256} :rem 3 7 

6 DEFFNMX) «X-FNH (X) *256 :rem 156 

8 DATA 169, 141 ,141 ,1 61 ,0,96,76 trem 202 
1 0 FQRJ* 7 39T074 5 : READK : POKEJ , K : NEXT 

;rem 249 

1 2 POKE7 4 6 , PEEK (55) ; POKE74 7 , PEEK ( 56 ) 

: r era 87 


14 PH1 NT" SYS7 39 = SAVATAGGIO FORZATO . ,r : PRIN 



T N SYS 7 4 5“ INTERRUTTORE.” 

: rem 

26 

16 

READA: B=B+A: IFA=256THENl 02 

: rem 

209 

18 

POKE1 

: , A: 1 = 1 + 1 t GOTO 1 6 

r rem 

141 

20 

DATA 

1 73,236,2 , 73,1,141 

: rem 

24 1 

22 

DATA 

236,2,208,13,1 69,131 

: rem 

90 

24 

DATA 

141,2,3,169,196,141 

: rem 

45 

26 

DATA 

3,3,76,131 ,1 96,1 69 

: rei 

6 

28 

DATA 

48,1 41 ,239,2,1 41 ,240 

: rem 

94 

30 

DATA 

2,1 69,7,160,7,32 

: rem 

149 

32 

DATA 

30,203,32 ,249,203,1 60 

: rem 

131 

34 

DATA 

2,1 85,254, 1 ,153,239 

: rem 

48 

36 

DATA 

2,240,3,200,206,245 

: rem 

33 

38 

DATA 

140,237,2,162,7,160 

; r era 

43 

40 

DATA 

7,142,2,3,140,3 

; rem 

85 

42 

DATA 

3,169,1 ,141 ,238,2: REM * 

CAMBIARE IL 


DATO *1» PER UN INTERVALLO 

PIU r LUNGO 




treni 

119 

44 

DATA 

1 69,0,1 33, 1 60,1 33,1 61 

: rem 

139 

46 

DATA 

1 33,1 62,165,1 61 ,56,201 

: rem 

194 

48 

DATA 

141 ,144,11 6,206,238,2 

: rem 

144 

50 

DATA 

208,236,238,240,2,173 

trem 

1 44 

52 

DATA 

240,2,201 ,58,208,20 

: rem 

33 

54 

DATA 

169,48,141 ,240,2,238 

t rem 

1 02 

56 

DATA 

239,2,173,239,2,201 

trera 

47 

58 

DATA 

53 r 208, 5,1 69,48 ,1 41 

: rem 

65 

60 

DATA 

239,2,1 73,237,2,162 

ir era 

46 

62 

DATA 

239,160,2,32,189,255 

: rem 

104 

64 

DATA 

1 69,1 ,1 62,8, 160,0 

;rem 

201 

66 

DATA 

32,186,255,169,43,166 

ir era 

166 

68 

DATA 

45,1 64,46,32,21 6,255 

trera 

1 08 

70 

DATA 

169,141 ,32,210,255,169 

treni 

199 

72 

DATA 

0,32, 1 89 ,255, 169, 1 5 

: rem 

56 

74 

DATA 

162,8,168,32,186,255 

: rem 

113 

76 

DATA 

32,192,255,162,1 5,32 

: rem 

100 

78 

DATA 

198,255,32,207,255,201 

trem 

208 

80 

DATA 

13,240,6,32,210,255 

: rem 

34 

82 

DATA 

56,1 76,243,32,210,255 

: rem 

1 50 

84 

DATA 

169,1 5,32,195,255,32 

: r em 

109 

86 

DATA 

204,255,76,7,7,76 

: rem 

222 

88 

DATA 

131 ,196,1 8,78,79,90 

: rem 

76 

90 

DATA 

65,80,146,32,66,89 

: rem 

15 

92 

DATA 

32,66,76,65,75,69 

;rem 

229 

94 

DATA 

32,76,65,77,66,69 

treni 

233 

96 

DATA 

82,84,13,70,73,76 

: rem 

221 

98 

DATA 

69,78,65,77,69,0,256 

trera 

134 


102 I FB< >2858 6THENPR I UT 11 ERRORE WELLE ISTR 
UZIQNI DATAI " ; END treni 150 

104 FQKES+32 , FNL ( S + 20 6 ) : POKES+3 4 , FNH ( S+20 
6) treni 215 

106 POKES+ 58 , FNL ( S + 80 ) : POKES+6G , FNH [ S+80 ) 

trem 128 

108 POKES+201 , FNL ( S+67) : POKES+20 2 , FNH (S+6 
7 ) : r era 2 2 4 

110 SYS745 : rem 49 

READY. : rem 173 


No Zap versione per C64 

2 POKE56 , PEEK ( 56 ) - 1 : CLR: 1 = 256* PEEK (56) + PE 
EK (55) : S ■ I treni 21 6 

4 DEFFNH (X) «INT (X/256) trem 37 

6 DEFFNL [X) «X-FNH (X) *256 :rem 156 


8 DATA 1 69,16,141 ,10,220,96,76 

;rem 

200 

10 

FORJ* 

73 9T07 45; READK: POKEJ, K 

:NEXT 





: rem 

249 

12 

POKE746 , PEEK (55) : POKE74 7 , PEEK { 56 ) 





: rem 

87 

1 4 

PR I NT" SYS 7 3 9 «SALVATAGGIO FORZATO " t 

PRIN 


T"SYS74 5= INTERRUTTORE.” 

: rem 

56 

16 

READA: B-8+A: IFA-256THEN1 02 

; rem 

209 

1 8 

POKEI 

, A : I “ 1 + 1 : GOTO! 6 

: rem 

141 

20 

DATA 

173,236,2,73,1,141 

: rem 

241 

22 

DATA 

236,2,208,13,169,131 

: rem 

90 

24 

DATA 

141 ,2,3,1 69,1 64,1 41 

: rem 

40 

26 

DATA 

3,3,76,131,164,169 

; rem 

1 

28 

DATA 

48,1 41 ,239,2,1 41 ,240 

; rem 

94 

30 

DATA 

2,169,7,160,7,32 

: rem 

149 

32 

DATA 

30,1 71 ,32,249,1 71 ,1 60 

: rem 

1 39 

34 

DATA 

2,1 85,254,1 ,1 53,239 

; rem 

48 

36 

DATA 

2,240,3,200,208,245 

: rem 

33 

38 

DATA 

140,237,2,1 62,7,1 60 

: rem 

43 

40 

DATA 

7,142,2,3,140,3 

: rem 

85 

42 

DATA 

3,169,1 ,1 41 ,238,2: REM i 

CAMBIARE IL 


DATO 

i M 1 PER UN INTERVALLO 

PIU 1 LUNGO 




; rem 

119 

44 

DATA 

169,0,141,8,220,141 

: rem 

38 

46 

DATA 

9,220,141,70,220,173 

: rem 

83 

48 

DATA 

10,220,41,240,240,117 

: rem 

129 

50 

DATA 

206,238,2,208,233,238 

; rem 

145 

52 

DATA 

240,2,173,240,2,201 

:rera 

27 

54 

DATA 

58,208,20,1 69,48,141 

: rem 

106 

56 

DATA 

240,2,238,239,2,1 73 

trem 

49 

59 

DATA 

239,2,201 ,58,208,5 

: rem 

2 

60 

DATA 

1 69,48,141 ,239,2,1 73 

: rem 

105 

62 

DATA 

237,2,1 62,239,1 60,2 

: rem 

44 

64 

DATA 

32,1 89,255,1 69,1,162 

: rem 

109 

66 

DATA 

8,160,0,32,186,255 

: rem 

1 

68 

DATA 

169,43,166,45,164,46 

: rem 

118 

70 

DATA 

32,216,255,169,141 ,32 

: rem 

146 

72 

DATA 

210,255,169,0,32,189 

: rem 

101 

74 

DATA 

255,1 69,1 5,1 62,8,1 60 

: rem 

107 
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76 

DATA 

15,32,186,255,32,192 

: rem 

106 

78 

DATA 

255,162,1 5,32,198,255 

;rem 

163 

80 

DATA 

32,207,255,201 ,13,240 

i rem 

133 

B2 

DATA 

6,32,210,255,56,1 76 

i rem 

51 

B4 

DATA 

243,32,210,255,169,15 

: rem 

149 


86 

DATA 32,195,255,32,204,255 

ì rem 

1 55 

88 

DATA 76,7,7,76,137 ,164 

: rem 

222 

90 

DATA 18,78,79,90,65,80 

: rem 

227 

92 

DATA 146,32,66,89,32,66 

: rem 

15 

94 

DATA 76,65,75,69,32,76 

; rem 

232 

96 

DATA 65,77,66,69,82,84 

j rem 

239 

93 

DATA 13,70,73,76,69,78 

: rem 

231 

100 

\ DATA 65,77,69,0,256 

: rem 

112 

102 

! I FB< >2871 5THENPRI NT" ERRORE 

NELLE 

ISTE 


UZIONI DATAI 11 : END 

: rem 

144 

104 

POKES+ 3 2 , PNL ( S+2 1 0 J : POKES+34 , FNH f S+21 


01 

t rem 

205 


106 POKES+58 , FNL ( S+83 ) : POKES+6Q , FNH ( S+83) 

: r era 134 

10B POKE3+20 5 , PNL ( 5+67 ) : PQKES+206 , FNH (S+6 
7) :rem 232 

110 SYS 74 5 ; rem 49 


READY - 


tram 173 



DI PERSONAL COMFJTIR 


mm'±* 



Quaderni Jackson; 
l'informatica a fotti i livelli, in 
una collana aperta, pratica, 
essenziale, aggiornata. 

Tutto quello che è 
importante sapere sui 
computer, la programmazione, 
i linguaggi, il software, le 
applicazioni e T nuovi sviluppi 
del Ti riforma tica. 

Ogni mese, 2 volumi. 

Volumi già pubblicati: 

Gianni Gì accanito! 

^Vivere col Persone! Computer” 

Pooio Bozzolo 

“Dentro • fuori b scatola - 


Enrico Oditfl 

Ed è subito BASIC Voi, V 
‘Ed è subito BASIC Voi. ir 

Pooio Capoturni 

# Marco Giocobarzi 

"A ciascuno II suo Personal' 

Fotvio Fr oocncoof 

• Fumando Po tir Uni 

“To do or not to do" 

Gionrv Gìoccagfint 

“Strutturare il software” 

Enrico Odiiti 

“ Dizionarietto informatiche* 


In edicola, 
a sole lire 6.000 
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di A* Biotta 


Il profraoBa è la coavanloaa di 
*mEIo appailo aaUa rivista ZX 
Coapadif di fob/ur '84 por 11 
pmoail ZX81 o Phu/4. 


P uf mantenendo inalterata l'imposta- 
rione di gioco, è stato in gran parte 
riscritto, a seguito delle differenze esi- 
stenti fra le due macchine, e sono stati 
aggiunti miglioramenti sla dal punto di 
vista grafico, vista la possi bll It A di avere 
a disposizione L colori, sia dal punto di 
vista del sonoro. 

Sul Labirinto c'è poco da dire: dovete 
solamente uscirne e v come per ogni labi- 
rinto che si rispetti, l'Impresa non sari 
facile. 

Per muovervi dovete usare i tasti con 1 
cursori (alto, sinistro e destro), che rap- 
presentano le relative direzioni. Rispet- 
to alla versione originaria sono stati 
creati due livelli di gioco: principiante 
ed esperto. 

Nel primo avete a disposizione un tem- 
po massimo di cinque minuti ed a video 
viene mostrata in continuazione la di- 
stanza in linea d'aria fra il punto in cui 
vi trovate e l'uscita; nel secondo II tem- 
po a disposizione è ridotto a tre minuti 
e Le Informazioni relative alla distanza 
fra voi e l'uscita appaiono saltuariamen- 
te. 



Giaco dolio variabili etiUisati 

A$ (27) matrice contenente La griglia 
del labirinto. Composta dal- 

P<8,2> 

matrice contenente Le 4 di- 
rezioni (N'S'E'O). Entrambe 

In doppio, per semplificarne 

Li controllo. 

FX FY 

LXLY 

Identificano la direzione di- 
ritta. 

Identificano La direzione la- 
terale: a sinistra, se somma- 

Ue V 

coordinate de) giocatore al* 


te; a destra, se sottratte. 

la lettera rappresen- 


I 1 in temo del labirinto. 

PI a Q1 

posizione dell'uscita, 
livello di gioco. 

tante il muro, e dalla lettera 
*B\ rappresentante il pas- 
saggio IL 

XeY 

utilizzate per la mosso cor- 
rente al) 'interno del labirin- 
to. 

LV 


*0 SWtROOKMOOOeZ» 7/*S 


3D color 

versione p«r C16 b Phy/4 


20 1 

DIMAS (27) ,P ( 8, 2) 

: rem 

190 

50 i 

GOTO 7000 

: rem 

101 

100 

GOSUB1000 

: rem 

210 

no 

CHAR, ? 2, 22, "{RVS} TEMPO 

" s PRINTLEFT$ (T 


1$ , 2) " : "MIDS (TI$ ,3,2) 

"MIDS (TI$ , 5 

>r3> 


" {OFF}’ 1 

:rem 

202 

130 

GETBS: IFBSO " {S IN } " ANDB$< >" {SU} M ANDB3 


<> w {DES } "THENl 1 0 

:rem 

193 

140 

IFB8 ■" {SU ] "THEN200 

:rem 

93 

150 

IFB8- n {DES } n THEND*D+ 1 

s rem 

121 

1 60 

IFBS-" £SIN}"THEND*D-1 

: rem 

252 

170 

IFD>7THEND=4 

: rem 

196 

180 

IFD<2THEND-5 

: rem 

191 

190 

GOTO! 00 

; r em 

100 

200 

IFASC (MID3 (AS {U+P{D,1 ) ) 

, V+P {□ , 2 ) ] } 

*65 


THENllO : rem 105 

210 U*U+P(D,1) :V*V+P(D,2) sGOTOlOG 

srem 124 

1 000 PRI NT " {C LR } " : FX -P (0,1) :FY*P(D, 2 ) ;LX» 
P(D-1 ,1) :LY«P(D-1 ,2) srem 77 

1010 X*U ; Y*V: GGSUB9000 srem a 5 

1020 ONHHGOSUB2QOO , 2130 : rem 36 

1030 GOSUB9100 : rem 14 

1040 QNHHGO5UB20 1 0,2140 ;rem 40 

1050 X-X+FX;Y«Y+FY ; rem 111 

1 060 IFMID$ (A$ (X) , Y, 1) = " A"THENHH= 1 - (X*Pl A 
NOY^Ql) ♦ ONHHGOTO3QQ0 , 30 30 srem 88 
1070 GOSUB9000 ; ONHHGOSUB2020 ,2150 

srem 176 

1 080 GGSUB91 00 : ONHHGOSUB2 O 30 ,21 60 

sren 130 

1090 X-X+FXsY-Y+FY :rem ì 7 S 

1 1 00 IFHID5 (A? (X) ,Y, 1 ) *" A^'THENHH* " - • X * F T A 
NDY-Q1 ) SONHHGOTO30 60,3090 :ren 9 3 
1110 GOSUB9 0 0 0 ; ONHBGOSOB 2 0 4 0,21 70 

:re^ 175 

1120 GOSUB9 1 00 :ONHHGOSUB2Q 50 ,21 80 

: re:E 179 

1130 X*X+FX;Y*Y+FY srerr, 110 

1 140 IFMIDS (A$ (X) , Y , 1 ) *"A"THENHH*1 - {X-P1 A 
NDY-QT ) : QNHHGGT037 20,31 50 srem 93 
1 1 50 GQSUB9Q00 : ONHHGOSUB2Q60 ,2190 

: rem 1 83 

1 1 60 GOSUB91 00 : ONHHGQSUB2070 , 220 0 

:rem 178 

1170 X=X+FX:Y=Y+FY trem 114 

1190 IFMIDS (A$ (X) ,Y, 1 ] «"A" THBNHH* 1 - (X=pl A 
NDY*Q1 ) iONHHGOT031 80, 321 0 ìrem 100 
1190 GQSUB9000:ONHHGOSUB20 80,221 0 

s r em 182 

1 200 GOSUB91 00:ONHHGOSUB2090,2220 

; r em 177 

1210 X*X+FX : Y*Y+FY : rem 109 

1220 IFMID$ ( A$ (X) , Y , 1 } A"THENHH*1 - (X=P1 A 
NDY-Q1 I ; ONHHGOTO3240 ,3 270 ; rem 98 

1230 GOSUB90Q0 :ONHHGOSUB2 100,2230 

; r em 172 

1 240 GOSUB91 00 : ONHHG0SUB21 10,2240 

: rem 176 

1250 HH*ASC(MIDS {A? (X+FX) , Y+FY) J * 64 

:rem 201 

1260 ONHHGOSU B 2250,21 20 ; rem 48 

1410 CHAR ,12,22, "{ RVS } TEMPO ** : PRINTLEFTS ( 
TI $,2)”: "MIDS (TI$ , 3 , 2 ) " ; *MID$ (TI$,5, 

2 ) " {OFF} " :rem 254 

1420 IFLV* 1 ANDVAL (TI $ ) >* 3OQTHEN4G0Q 

;rem 47 

1 430 IFVAL ( TI$ J >■ 500THEN4000 srem 7 9 

1 440 IFU*P1-1 ANDV*Q1THEN450Q srem 169 


1 450 IFLV*1ANDRND(0) >.5THEN148Q : rem 62 
1460 CHAR , 7 , 2 0 , " { REO } D ISTANZA DALL'USCITA 

" : PR IRTI NT ( ARS {U-Pl ) +ABS £ V-Q 1 ) ) * 

{ BLK) " ;rem 41 

1480 RETURN 5 rem 173 

2000 CHAR, 9,0, "M" : CHAR ,9,1 8 , "N" : RETURN 

s rem 136 

2010 CHAR , 2 8,0, " N n i CHAR ,28,18, n M n : RETURN 

”:rem 235 

2020 CHAR, 1 0,1 , "M" : CHAR , 1 1 , 2 , "M" : CHAR , 1 0 , 
1 7 , "N" : CHArTI 1,16, « N 1 11 : RETURN 

:rera 18 

2030 CHAR, 27,1 , "H" : CHAR , 2 6 , 2 , "H" : CHAR , 27 , 
1 7 , "M" : CHART26 ,16, tt W” : RETURN 

: r em 4 7 

2040 CHAR , 12,3, "M 11 : CHAR ,13,4," H" : CHAR , 12, 
1 5,"N":CHAR, 13,14, "N M : RETURN 

treni 2 8 

2 050 CHAR , 25,3, " N" ; CHAR ,24,4,"N n s CHAR ,25, 

1 5 , "M rt : CH AR , 2 4 , 1 4 , " M" : RETURN 

: rem 41 

2060 CHAR ,14,5, "H" s CHAR ,15,6, "M" : CHAR , 1 4 , 
1 3," N": CHAR, 1 5,1 2," N" : RETURN 

: r em 3 8 

2070 CHAR ,23,5, ” N" : CHAR , 2 2 , 6 , " N M : CHAR , 22, 
1 2 , "H" : CHAR, 2 3,13, "M." : RETURN 

; rem 3 5 

2080 CHAR, 1 6, 7, "M" ; CHAR, 16, 11 , "N" s RETURN 

: rem 2 36 

2090 CHAR, 21 , 7 , ”N" : CHAR, 2 1 ,11 ,"«" 5 RETURN 

:rem 229 

2100 CHAR ,17,8, "M" ; CHAR, 17,10, "N” : RETURN 

231 

2110 CHAR, 2 C, 9, "N": CHAR ,20, 1 0 ," M" : RETURN 

srem 220 

2120 CHAR, 1 7,9, " [<N>] {GRN} {RVS} 

* 2 SPAZI } {OFF } { BLK} [ <H> 3 11 : RETURN 

; r em 22 

2130 CHAR, 9,0," ( <P> 3 fl : CHAR , 9 , 1 8 , " [ <Y> ] " : R 

ETURN : rem 87 

2140 CHAR, 2 8,0, 11 [<P> ) " ; CHAR, 28,18," [<Y>J W 
: RETURN : rem 186 

21 50 CHAR, 9,1 , H [ <N> 1 n ; CHAR ,9,2,” [<«>] 

[< 2 P>] FORJJ*3TOÌ 5 i CHAR, 9, JJ, M 
[<N>] {RVS} {PUR] { 2 SPAZI } {OFFHBLK}” 
: NEXT : rem 99 

2155 CHAR ,9,16," [ < N> 1 [< 2 Y> ]" : CHAR , 9 , 1 7 , 
" [ <N> } " : RETURN srem 240 

21 60 CHAR, 28,1 [ <H> ] " : CHAR, 26 , 2 , " 

[< 2 P>1 f<H>l " :FORJJ»3TOT SsCHAR, 26 , J 
J,” (RVS} {PUR} { 2 SPAZI} {BLK} (OFF) 

[ <H> 1 " * NEXT : rem 17 

2165 CHAR ,26,16, rt £< 2 Y> ] f < H> ] : CHAR , 2 8,1 

7," [ <H> 3 RETURN ;rem 101 

2170 CHAR, 11 ,3," { <N>] " : CHAR, 1 1,4," {<N> J 
{< 2 P> } w : FORJJ=STOl 3 s CHAR, 1 1 , JJ , " 
[<R>] [RVS} {CYNH 2 SPAZI} {OFF} {BLK}" 
SNEXT srem 231 

2175 CHAR, 11 ,14," [<N>] [< 2 Y> 1 M s CHAR, 11 , 1 
5," [<N>] RETURN srem 64 

21 80 CHAR, 26, 3," { <H> ) " ; CHAR , 2 4 , 4 , ” 

[< 2 P>1 t<H>l "SFORJJ-5T01 3 : CHAR, 24, J 
J , n {RVS } {CYN } { 2 SPAZI} {OFF} {BLK} 
[<H> J " : NEXT srem 20 

2185 CHAR, 24,14, "{< 2 Y> 3 { <H> 1 " : CHAR , 2 6 , 1 
5 , n [<H>) RETURN ;rem 95 

21 90 CHAR, 1 3, 5, " { <N> ] 11 : CHAR, 1 3 , 6 , " {<N>] 

[< 2 P>] n :FORJJ=7TOll :CHAR,1 
[<N>] {RVS} (<2>}{ 2 SPAZI } {OFF} {BLK}" 
iNEXT srem 233 

2195 CHAR,13,12,"[<N>] E< 2 Y> } " :CHAR, 13,1 
3," [<N>l n S RETURN srem 66 
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2200 CHAR, 24, 5," (<H>]":CHAR,22,6," 

(< 2 P>] [<H>] "1F0RJJ-7T01 1 tCHAR, 22, J 
J,"{RVS] [<2>] { 2 SPAZI] (OFFHBLK) 
1<K>) a : NEXT : rem 1 

2205 CHAR, 22 , 1 2 , " [< 2 Y>J [<H>] " tCHAR, 24 , 1 
3 , * [<H>] " : RETURN : rem 80 

2210 CHAR,1 5,7," (<N>J [<P> 1 " :FORJJ-8TO10:C 
HAR,15,JJ,"(<N>}{RVS}{BLU} {OPPJ 
{ BLK } " : NEXT : CHAR , 15,11 ," [<N>] (<Y>1": 
RETURN : rem 194 

2220 CHAR, 21 ,7," (<P>1 [<H>] ":FORJJ«8TOlO:C 
HAR, 21 ,JJ,"{RVS} {BLU} (OFF) {BLK} 
(<H>) " tNEXT tCHAR, 21 ,1 1 (<Y>J 
RETURN : rem 216 

2230 CHAR, 16, 8," KN>1 [<P>] " : CHAR, 1 6,9," 

{<N>] {RVS} (CYN} { OFP } { BLK } n : CH AR , 1 6 , 
10," [<N>J [<Y>}"sRETURN :rem 69 

2240 CHAR, 20, 8, ”{<?>] [<H>] " ì CHAR, 20,9," 

{RVS} (CYN} {OFF} {BLK} [<H>1 " :CHAR, 20, 
10," [<Y>] [<H>] "iRET'JRN trem 85 

2250 CHAR, 1 8,8," [< 2 P> J " :CHAR, 1 8,9," 

{RVS} {CYN} { 2 SPAZI } {OFF} {BLK}" :CHAR 
, 1 8 , 1 0, " {< 2 Y>] ": RETURN trem IBI 

3000 CHAR, 1 0 ,0, " t< 18 P> ] " : PORJJ-1 TOT 7 

I rem 213 

3010 CHAR, 10, JJ,"{RVS} [<1>1 ( 19 SPAZI }":N 
EXT i rem 171 

3020 CHAR, 10,1 9,"{ BLK} {OFF} {< 18 Y>]"lGOT 
01410 trem 174 

3030 FORJJ-lTOI 7:CHAR,10, JJ," {RVS} [RED] 

( 18 Z)" tNEXT: PRINT" {BLK} " l GOTOl 41 0 

: reid 158 

3060 CHAR, 12,2," [< 14 P>] " : FORJJ-3TO1 5:CH 
AR,12,JJ,"{RVS}{PUR) { 14 SPAZI ) " ! NEX 
T UN 64 

3070 PRINT* {OFP ) { BLK } " : CHAR ,12,16," 

t< 14 Y> ] " ! GOTOl 410 tre» 226 

3090 FORJ J- 3T01 5 : CHAR , 1 2 , J J , " { RVS } { RED ] 

{ 14 Z} ":NEXT! PRINT" {OFF} {BLK}" :GOTO 
1410 ~ trem 208 

3120 CHAR, 1 4,4 ," {< 10 P>]"tF0RJJ-5T013:CH 

AR,1 4, JJ," (RVS} {CYN) { 10 SPAZI}":NEX 
T iretn 140 

31 30 PRINT" {OFF} {BLK} " tCHAR, 1 4, 1 4," 

{< 10 Y>} " :GOT01 41 0 (rem 3 

3150 FORJJ-5TO! 3 tCHAR, 1 4 , JJ," {RVS} {RED} 

{ 10 Z ) " t NEXT: PRINT" {OFF } { BLK ) " t GOTO 
1410 : reta 103 

3180 CHAR, 1 6, 6, " {< 6 P> J " i FORJJ-7T01 1 tCHA 
R, 16, JJ," {RVS} I<2>] { 6 SPAZI} {OFF}": 
NEXT : rem 100 

31 90 PRINT" {OFP} {BLK} " : CHAR, 16,12," 

£< 6 Y> ] " : GOTOl 41 0 : rem 45 

3210 FORJJ-7T01 1 :CHAR, 1 6, JJ , " {RVS} {RED] 

{ 6 Z) "t NEXT: PRINT" {OFF} {BLK}" i GOTOl 
410 treni 254 

3240 CHAR ,17,7," [< 4 P> J " :FORJJ-8T01 0:CHA 
R,17,JJ,"{ RVS } { BLU } { 4 SPAZI }":NEXT 

treni 254 


3250 PRINT" {OFF} {BLK}" tCHAR, 1 7,11 ," 

[< 4 Y>} " : GOTOl 41 0 tre» 188 

3270 FORJJ"8T01 0:CHAR,1 7, JJ, " {RVS} {RED } 

{ 4 Z) "iNEXT: PRINT? {OFF} {BLK}" : GOTOl 
410 ’ - irem '81 

4000 CHAR,1 2,23," {RVS} (FLASH ONjTBMPO 

{ 2 SPAZI (SCADUTO" tre» 158 

4010 VOL8: SOUND 1 , 200 , 1 60:F0RI-7TO2STEP- 1 

tre» 176 


4020 VOLI : FORJ- 1 TO50t NEXT: NEXTt FORK-1 TO20 



00: NEXT 

j rem 

139 

4030 

CHAR , 9 , 2 3 , " { RVS }{ BLK } GIOCHI ANCORA? 


(S/N) "i PRINT 

: rem 

123 

4040 

GETZS : IFZ$-"S"THEN7500 

trem 

60 

4050 

IFZS < >" N "THEN4 0 40 

: rem 

217 

4060 

PRINT" {CLR}"iEND 

trem 

63 

4500 

CHAR, 6, 20," [<7>J BRAVO HAI TROVATO L’ 


USCITA! *t FORK-1 TO 10 

: rem 

151 

4510 

VOL8 :FORI-4T08 IFORJ-300TO500STEP1 00 : 


SOUND 2, J, 2: NEXT 

: rem 

43 

4520 

COLORO, I t COLOR4, 1+8 l NEXTI ,K: rem 

12 

4530 

COLORÌ ,16,6: COLORO , 2 

: rem 

187 

4540 

GOTO4030 

: rem 

205 

7000 

COLOR4 ,16,6 : COLORO , 2 

trem 

182 

7010 

PRINT" {CLR} " : CHAR, 1 3,5," 

(<2>1 3D 

COLO 


R MAZE" 

i rem 

157 

7020 

CHAR ,7,8," { < 7 > ] VUO I LE ISTRUZIONI (S 


/N) ?" 

: rem 

12 

7030 

GETZS: IPZS-"N"THEN7 500 

trem 

57 

7040 

IFZSO”S"THEN7020 

i rem 

225 

7050 

PRINT" {H0KE}{ 8 GIU'JSEI 

STATO IMPRI 


GIONATO IN UN LABIRINTO 

E" : rem 

89 

7060 

PRINT"DEVI USCIRNE PRIMA 

CHE IL 

TEHP 


O A DISPO-" 

:rem 

47 

7070 

PRINT" S I ZI ONE FINISCA" 

: rem 

189 

7080 

PRINT" PER MUOVERE USA I 

CURSORI 

(DES 


TRO - ALTO" 

i rem 

89 

7090 

PRINT" E SINISTRO) CHE INDICANO LE RE 


LATI VE DI-" 

i rem 

70 

7100 

PRINT" REZ IONI " 

; rem 

1 85 

7110 

PRINT" {GIU ‘ ) { 6 DBS} {RVS} PREMI UN TA 


STO PER CONTINUARE" 

: r era 

245 

7120 

GETZS: IFZ$-""THEN71 20 

: r em 

233 


7500 PRINT" {CLR} {BLK} { 2 GIU' ){ 11 DESjLI 
VELLO DI GIOCO?" tre» 117 

7510 CHAR ,12,5," (P) RI NC I PIANTE" : CHAR ,12,7 



,"{E)SPERT0" 

t rem 

79 

7520 

GBTZ$:IPZ$-"B t, THENLV-l £ 

GOTO 7 550 




: r em 

18 8 

7530 

IFZ$0"P"THEN752G 

; rem 

231 

7540 

LV-0 

: rem 

223 

7550 

CHAR r2 f T0f"{ RED } ATTEND 1 

MENTRE PREPA 


RO IL LABIRINTO {BLK}* 1 

2 rem 

28 

8000 

Z6-"211201 10";FORJJ-1T04 ; rem 

73 


8010 P(JJ,1 ) “VAL (MID$ ( Z$ , ( JJ*2- 1 ) ,1 ) ) -1 

treni 31 

8020 P (JJ,2) “VAL (MIDS (ZS , (JJ+2) , 1 ) ) -1 

tre» 195 

8030 P(JJ+4,1 )»P(JJ,1) :P(JJ+4,2) -P(JJ,2) 

trem 135 

8040 NEXT: Z$“" ABBBBBBBBBBBBBBBBBBBBBBB88A 
" trem 56 

8050 FORJ J“1 T027 1 A3 { JJ) “ " AAAAAAAAAAAAAAAA 
AAAAAAAAAAA" : NEXT tre» 27 

8060 F0RJJ“2T022STEP4 : A$ ( JJ) “ZS trem 110 

8070 NIDO (A? ( JJ+1 ) ,2,3}“"B" tMIDS {A$ (JJ+2) 
,2,3)“"B" trem 244 

8080 MIDS (A$ ( JJ+3) ,2,3) “"B":MID$ (ASIJJ+l ) 
,26,27) “"B" trem 98 

8090 MIDS (AS (JJ+2) ,26 ,27) »"B" tMIDS ( AS < JJ+ 
3) ,26,27)-"B" trem 208 

8100 FORKK-2TO22STEP4iHH-INT(RND(0) *1 .6) t 



0NHHG0T08 1 10,8120 srem 244 

8110 MID$ (A$ (JJ+1 ) ,KK,KK+1)»"B" sren 96 
8120 KID8 (A$ (JJ+3) ,KK,KK+1)«"B" :rem 101 
8130 IFRHD<0)>.5AHD<ASCCHID$(A$(JJ+1> ,KK) 

) • 660RASC (MID$ (A? (JJ+3) ,KK> ) -66) THBN 

esoo :rem S2 

8140 NEXTKK> JJ:A$ (26) «2S :tem 117 

8150 PI “1 4+4+IMT (RttD (0) *3) :Ql •6+4*IKT(RND 
(0)*S) stero 48 

8160 MID8(A$(P1+1> ,Q1 ,Q1+1)-"B":MID$(A$(P 
1+2) ,Ql ,01+1)»"A" stem 195 

81 70 MID6 (A$ (PI +3) ,Q1 ,Q1+1) -"A"sMID$ (A$ (P 
1-1) *Q1 ,Q1+1)-"B" sxem 199 

81 80 MID${A${Pl-2) ,Ql ,Q1 +1 ) -"B" ìMIO$ (A$ (P 
1-3) ,Q1,Q1+1)- M B" seem 204 

8190 MID$ (A$ (Pi -5) r Ql »Ql +1 ) ""B" :MID$ (A$ (P 
1) .01-1 ,Ql)» n A" srem 113 

8200 HID9 (AS (PI ) ,Q1+1 ,Q1+2)»"A"SMID$(A8(P 
1-6) ,Q1 ,Q1+1)«"B" Sten» 197 

6210 MID$<A$(Pl-7> ,Q1 < Ql+l)-"B":Pl-Pl+2 

: rem 6 

8220 U-2+24*IHT{RND (0) *2> : V-2:D-5- (U-26) 

srem 175 

8230 z«4+4*IHT{RND(0>*G) :F0RJJ«lT03 

é rem 27 


8240 HIDS <A$ (G+4*INT(R»D{0> *51) ,Z,Z+1)*"A 
":NEX T tre® 53 

8250 TI$-"000000 11 srera 49 

3260 GOTOIOO : rem 154 

8 500 KID$ ( A$ ( JJ+2) f KK * KK+ 1 ) ■ " B" : G0T08 1 4 0 

s rem 166 


9000 HH-ASC IHID8 { A$ fX+LX) , Y+LY) 1 -64 : RETtJR 

Il ;rem 240 

9100 HH-ASC(MID${A${X-LX) , Y~LY) ) - 64 : RETDR 

u srem 245 




Michel Benelfoul 

GIOCHI. TRUCCHI E CONTI 


Questo libro * destinato sopranni 


io ai programmatori jylnc ipiamt 


con i suoi 29 prò 
con urta ricai documentazione 
profili per essere eseguiti Gii argo 
meni] sono tarili e rispondono alt 
esjgenre più disparate II BASIC ■ 
quello dei calcolatori PET/C8M d 
Cui vengono slattate a pieno b 
molte funi ioni 


C*. raor* IH Un Z4800 


Btte Bonetti 

Lucrano Paiiucmt - Fatuo Bocchi 
Giovanni Valerio 

COMMODORE 64 
U GRAFICA E IL SUONO 

Ogni aro omento viene spiegato e 
accompagnata da numerosi esem- 
pi commentati Nel libro sono lista- 
f i m oli issi m i progr a m mi ; essi sono 
registrali sulla cassetta allegala. 
Indire la casseiia contiene anche 
all ri programmi, ai Quali si la riferi- 
mento nel lesto. ma senza listarli. 
Cod 4Q9B Pag. JTO Urt 34JW0 


'•■j&are o fotooopÉre} e spedre m busta dui a 
GRUPPO EDITORIALE JACKSON - Owscn* Uba - V* floMftn. 12 ■ 20124 Maro 

CEDOLA DI COMMISSIONE USUARIA 


VOGLIATE SPEDIRMI 


fi* copi | 

cortei 

Pmrro urrtmo 

1 

J 














Totali 



□ Pftt/wro con!rAA.**gnc il pcnimo i pnsj?o «fello .pni L 1000 per eonLlUrto Ama 
■ptM di igedfcriona. 


□ Mi 

tu c/c à n i 


j vagÉH prttpn iv«i 


MOfm 


Cognomi 

vm 

Cip cute 


Pro* 

Pili Frm* 

SO*7IO rnwito A Aiwncto Si nCfmdi l'orntfi 

»on*rt fllhn 

1 1 LI 

OfiOC 

MMMO 

Parliti IVA t 1 1 1 1 1 1 l 1 

L 50 000 


supsiooMMooongP im 4» 




di J. Arl«t 

trad. ed adatt, 

di IL CHstai 



U valedtà è Importante, mm «a* 
ràlabaoaa itrat«fU dell* bo»m 

ito «fti^edco sfoco fo veidoal 
por VIC X# iiMpauo, CI4- 
Phu/4 e C*4. È rfckleefo Fano 
di mm foyetick. 


R appresentati da una simpatica fac- 
dna, vi trovate in una foresta ove 
sono sparse qua e là alcune mele. Tre* 
menciamente affamati, II vostro scopo 
è mangiarne la maggior quantità possi' 
bile. Dovrete però cercare di evitare di 
sbattere contro gli alberi e di essere a 
vostra volta divorati da un mostro In 
movimento, che si dba di ogni cosa: 
alberi, mele «... uomini. Oltre a dò, il 
tempo a vostra disposinone I limitato: 
lunghe pause per studiare La situazione 
non sono quindi raccomandabili. L'uni- 
ca via per avere successo in questo gio- 
co consiste nel pensare prima di muove- 
re, ma sema pensare troppo a Lungo,,. 
La vostra sola arma, in questo gioco, & 
una bomba che distrugge tutto dò che 
sì trova nelle otto locazioni di schermo 
immediatamente adiacenti alla vostra 
posizione. La bomba viene lanciata con 
la pressione del pulsante di fuoco, ed è 
utile per aprire la strada dagli alberi nel 
tentativo di raggiungere qualche mela 
in poetatone difficile, oppure per mette- 
re fuori combattimento il mostro. Ca- 
sualmente, pud apparire un rubino sullo 
schermo. Dovrete cercare di raccoglier- 
lo prima che lo faccia 11 mostro, e vi 
renderà un bel po' di punti. 

Una volta attivato 11 programma vi ver- 
rà domandato se desiderate leggere le 
istruzioni di gioco. Usando un joystick 
(porta 2 net C64, C16 e Plus/4), muo- 
vete la faedna verso una mela o verso 
Il rubino (se presente) ed usate il pulsan- 
te di fuoco per lanciare una bomba. 
Uscendo dal bordo dello schermo, rien- 
trerete automaticamente dalla parte 
opposta. 

Il gioco Inizia nel livello 1 con due uomi- 



ni e due bombe a disposizione. Per com- 
pletare ciascun livello dovete mangiare 
cinque mele, oppure raccogliere Li rubi- 
no, oppure uccidere lì mostro con la 
bomba; tutto dò entro il limite di tempo 
massimo. Ogni livello successivo è ca- 
ratterizzato da un numero superiore dì 
alberi, Il che rende il movimento sempre 
più diffìcile. Poco prima del tarmine del 
tempo a disposizione il bordo deJJo 
schermo diventa rosso, per indicarvi 
che rimangono soltanto pochi secondi a 
disposizione. L'uso dì una bomba ripor- 


ta all'inizio il tempo disponibile in quel 
dato livello di gioco. 

I punti sono distribuiti come segue: da 
SO a 500 per le mele, 1000 se uccidete 

II mostro e 3000 se raccogliete 11 rubino. 
Inoltre, punti di bonus vengono regalati 
In funzione della velocità con cui com- 
pletate un Livello dJ gioco, 

infine si guadagnano un omino ed una 
bomba extra dopo L Livelli 5, 10, 15, 20 
e 25. Buon divertimento! 


44 supfacowMoooiiie rm 



Appi* Hmnt vattiooc per Vie 2* 
i t 


10 

20 

25 

30 


PQKE5S , 1 52 : POKE5 6,28 : CLR 
FORI -1 TQ95 : READA : X-X+A : NEXT 
IFXOÌ 282 8THENPRI NT" ERRORE WELLE 
ZI0NI DATA!": STOP 


67 

180 

ISTRU 

231 


8 2 STO 8 6 6 : READ A : POKE I , A : ME 

70 
73 
197 


RESTORE : FORI 
XT :rem 

40 DATA 173,5,144,41 ,3,10,10 :rem 
50 DATA 105,16,133,254,169,128 :r em 
60 DATA 133,252,169,0,133,251,133 

: rem 

70 DATA 253,168,162,2,177,251,145,253 

; rem 

80 DATA 200,208,249,230,252,230,254 


78 


36 
179 

DATA 202,208,242,96 :rem 60 

POKE36878, 1 5:DIMN(16J : FORI «1 TOl 6 : READ 
N ( I ) :NEXT uem 21 

110 DATA 135,163,175,195,207,209,215,225, 
231,232,235,240,237,235,237,240 

: rem 217 

1 20 FOKE36879 , 25: FRI NT" (CLR} n CHR$ (1 42 JCHR 
8 { 8 ) S PC ( 4 ) " { 6 GIU 1 } {BLKjBEKVENUTI IN 
* : r em 9 9 

130 PRINTSPC ( 5) " { 2 GIU 1 ){ BLK ) * (RED } A 

£ C YN } F { PUR I P { GRN } L { BLU } E { YEL } H ( 8 LK } U 
( RED }H (CYN }T{ PUR} : GOSUS60 0 : rem 241 
PRINT" {BLU}( 4 GIU* } (RVSjVUOl LE ISTR 
UZIONI?": PRINT" (S O N) " :rem 90 

GETYS : IFYS-" "OR (Y$< >"S" AHDYSO"W" } THE 
MI 50 : rem 91 

Y-(Y$-"S") : PRINT" {CLR}" :POK£36869, 255 
: SYS82 8 : GOSUB50 0 : 1 FNOT Y THEN4 40 

j r em 178 

PRINT" {CLR } " : POKE 36879, 251 :rem 58 
PRINTSPC ( 5 ) " { RVS } { PUR ) TU SEI i {OFF} 

£ BLK JS" : PRINTSPC ( 5) " (GIU 1 } (RVS) £PUR;M 
OSTRO : (OFF H BLU) 1" : PRINTSPC £5) " 

{GIU 1 } £ RVS } ( PUR J MELA ì (OFF) {RED}V" 

: r em 118 

PRINTSPC 15) " (GIU 1 J ( RVS H PUR} ALBERO: 

( GRN } (OFF ) U" : PRI NTS PC ( 5 ) 11 (GIU 1 } (RVS) 

{ PUR } RUBINO : 2" £ r em 1 6 3 

PRINT" { 2 GIU 1 } (RVS} { BLK] PUNTEGGI :":P 
RINT" (GIU 1 } {REDjVtRVS} : 50-500 PUNTI": 
PRI NT" (GIU* }{BLU} l (RVS] : 1000 PUNTI" 

: rem 76 

PRINT" (GIU 1 } (PUR) (RVS }Z: 3000 PUNTI" 

t rem 138 

220 GOSUB640 ;rem 174 

230 PRINT" {CLR} {GIU 1 } (BLK}S (RVSj{BLU}DEV 
E PRENDERE 5 { RED } {OFF } V{ RVS } { BLU } 

{ 3 SPAZI } PRIMA DELLO SCADERE 
i 3 SPAZI }DEL TEMPO" : rem 59 

240 PRINT" (BLK} (RVS)IL {BLU } (OFF } H BLK } 
(RVS) MANGIA SIA IL ( RED } (OFF ] V( RVS } 
(BLK}( 2 SPAZI} CHE IL {GRN} (OFF} U 
(BLK]" : rem 209 

PRINT" (Giti 1 } (RVS } { BLK) AD OGNI LIVELLO 
,{ 6 SPAZI} AUMENTANO GLI {QPF}{GRN]U 
(BLK} ;rem 7 

PRINT" (GIU* }£ RVS} (BLU }USA IL JOYSTICK 
PER { 3 SPAZI )MUOVERE (OFF) (BLK)S 
(RVS) (BLU) NELLE 4{ 5 SPAZI }D I REZIONI 
" t r em 1 5 4 

GOSUB640 irem 1 79 

PRI NT" (CLR) ( 2 GIU'M 3 DES}{BLK}S 
(RVS} (BLU} PERDERÀ 1 SE" :rem 77 
PRINTSPC ( 3) " (GIU 1 } { RVS }TOCCA UN {GRN} 
(OFF }U (RVS) (BLU} 0 SE" : rem 35 


90 

100 


140 

150 


160 


170 
1 80 


190 


200 


210 


250 


260 


270 

280 

290 


300 PRINTSPC (3) "(GIU 1 }( RVS }{ BLU }E ' TOCCATO 
DA (OFF) 1 ( BLK } " :rem 81 

310 PRINT" { 2 GIU 1 } (RVS} (RED) IL GIOCO FIN 
ISCE SE ( BLK) (OFF } S { RVS } " 5 PRINT" ( RVS } 
(REDjCI IMPIEGA TROPPO ì " :rem 161 

320 GOSUB640 Itera 175 

330 PRINT" {CLR} ( 2 GIU* } {BLU} (RVS} EXTRA 
{OFF} (BLK}S(RVSMBLU} E BOMBE EXTRA, A 
I LIVELLI 5,10,15,20 E 25" ;rem 250 

340 PRINT" { 2 GIU* } ( BLU } £ RVS J SE {OFP} 

(BLK)S(RVS) (BLU) STA ESAURENDO IL TEM 
PO, LO SCHERMO [ 5 SPAZI } DIVENTA (RED} 
ROSSO" :rem 54 

350 PRINT" { 2 GIU* } (BLU) E RVS} PIU* VELOCEM 
ENTE {OFF} (BLK }S( RVS} {BLU} { 4 SPAZI} 
COMPLETA UN LIVELLO, { 2 SPAZI} PIU* FU 
NTI OTTIENE" : rem 166 

360 GOSUB640 : rem 179 

370 PRINT" {CLR} { 2 GIU 1 } { RVS } ( BLU } PREMEND 
O FUOCO SI { 5 SPAZI } GETTA UNA BOMBA" 

:r em 125 

380 PRINT" (GIU* H BLK} S {RVS} PUÒ* GETTARE 
( 3 SPAZI 3 UNA SOLA BOMBA ALLA VOLTA" 

: r em 173 

390 PRI NT" {GIU* } £ RVS } { RED } UNA BOMBA DISTR 
UGGE {OFF){GRN}U(RED}(RVS} E REINIZIA 
LIZZA I L{ 4 SPAZI} TEMPO" : rem 22 

400 PRINT" (GIU* } (RVS} {BLK} LA BOMBA SPOSTA 

" f : rem 27 

410 PRINT" {OFF} {BLU} ì (BLK) {RVS} IN 
{ 2 SPAZI ] UN ALTRO LUOGO, O FA 
{ 2 SPAZI} SCOMPARI RE {OFF} (BLU 3 I {BLK} 
" :rem 117 

420 PRINT" ( 2 GIU* } (DES]{ RVS} PREMI UN TAS 
TO" :rem 99 

430 GETA8: IFA$»""THEN43Q :rem 81 

440 PRINT" (CLR) " : POKE3 687 9 , 2 5 : POKE3 686 9 , 2 
40 ;rem 68 

450 PRINT : r em 38 

460 PRINT" { 2 GIU* } ATTENDERE i CARICO LA SE 
CONO A PARTE" :rem 26 

470 S$-CHR$ O 31 ) ìrem 54 

490 FORI ■ 1 TOLE N ( S$ ) : POKE630+ 1 , ASC (MID5 (SS 
, I ) } ; NEXT : PO KE 1 98,1: END : rem 148 

500 FORC "73 2 OTO 7 3 2 7 : HEAD A : POKEC , A : NEXT 

:rem 103 

510 DATA 60,66,165,129,165,153,66,60 

: rem 245 

520 FORC "74 3 2TO 7 4 3 9 : READ A : POKEC , A : NEXT 

srem 113 

530 DATA 195,34,20,156,126,29,8,119 

193 


540 

550 

560 

570 

580 

590 

600 

610 

615 

620 

630 

640 


F0RC»7328T07335:READA;P0KEC,A:NEXT 

: rem 1 1 4 

DATA 60,66,165,129,1 53,165,66,60 

: rem 249 

FORC- 73 36T073 43: RE ADA: POKEC, A: NEXT 

: r em 1 1 4 

DATA 0,28,62,127,127,62,8,8 irem 248 
FORC - 73 4 4T07 3 5 1 : READ A: POKEC , A: NEXT: RE 
TURW ìrem 140 

DATA 6,8,60,126,126,126,60,24 

:rem 87 

POKB36878 , 1 5 : FORO- OTO 8 : FGRL-1 +0T08+O : 
N-N(L) -rem 121 

POKE36976 , N : FORT-1 TOSO : NEXT: NEXT: NEXT 
: FORV- 1 5TOOSTEP- 1 :rem 43 

PO KE 36878, V: FORT* 1 TO 3 0 0 : NEXT : rem 239 
POKE36 878,0: POKE 3 68 7 6,0 ;rem 6 

RBTURN : rem 121 

PRINT" { 2 GIU* } {BLK} {RVS} { 5 DES ] PREM 
I UN TASTO" • rem 107 


SUPOttXWMOOOftf* 7/as 45 



650 GBTA8 : 1 FA$ ■ ■ * THEN6 SO nem S9 

660 RETURN itera 124 




2 SI -36874:S2-S1+1 IS3-S2+1 : V-S3+2:TP-3687 
9 : rem 149 

4 GÓSUB1 10:B«>0iSO"0:TX>0:X*RND{0) 

itera 36 

6 FRI NT" [CLR]" : POKS36869 ,255sSC"7660iQ"30 
720 i ZZ-25:W>1 :KE"2:POKEV, 1 5: ZA" 2 : POKE37 
154,127 itera 21 

8 POKETP , 251 : NO»1 27: FORL“l TOZZ :X«INT (RND { 
1 ) *506) ir era 229 

10 NO"NO+l : POKES2 ,NO: IFNO“>254THBNNO"1 27 

: rea 1 0 

12 PORESC+Q+X , 5 : POKESC+X ,21 : POKES2 , OiNEXT 
: ZZ-ZZ+1 5 iTR" INT (RKD ( 1 ) *4) +6 Itera 74 
14 FQRP“1 TOTRl POKES3 , 240 : TA" INT ( RND ( 1 ) *50 
6} + SC: POKETA, 22 : POKETA+Q, 2 itera 158 
16 I FINTI RND (1 ) *1 00) +1 <"3THENPOKETA, 21 SiP 
OKETA+Q , 4 itera 239 

18 POKES3, 0 : NEXT :SX" INT (RND (1 ) *506) +SC: PO 
KESX ,33l POKESX+Q, 6 itera 213 

20 PO"INT(RND(l ) *506) +SCi IFPO-SXTHEN20 

itera 71 

22 POltEFO, 1 9i POKEPO+Q, 0:F0RL"1 T03 ! POKEPO , 
1 9 :FORP"1 TOI 00 i POKES 2 , 200 : NEXT 

itera 47 

24 POKEPO, 32: FORP"1 TOI 00 : POKES 2 , 0: NEXT: NE 
XT: POKEPO, 1 9 item 178 

26 TI8“"000000" itera 202 


28 IFTI “5786THENPOKBTP , 1 54 : IPTI»>966THEN6 
2 : ren 1 55 

30 POKES3 ,0 : J" (PBBK ( 371 3 7 ) AND 2 8 ) OR ( PEEK ( 3 



7152) AND! 28) 

: tem 

22 

32 

ONABS( (J-lOQ)/4> -7GOTO50, 

50,34, ,36 

,38, 


124,,, ,40, 50, 50 

t rem 

92 

34 

DR--1 :NO"l 65 : GOTQ42 

: rem 

33 

35 

DR" 22 : NO»! 89:GOTQ42 

: rem 

47 

38 

DR»-22:N0»2l0:GOTO42 

; rem 

79 

40 

DR-1 t HO" 2 25 

i rem 

21 

42 

POKES 2 , NO : PO-PO+DR : I FPO> 8 ì 87THENP0 1 

■PO- 


506:PCKE?Q-DR+506,32 

; rem 

107 

44 

IFPO< 7G8QTHENPQ»PO+506 : POKEPO-DR- 506 , 3 


2 

i rem 

* 59 



46 IFPEEK (PO) 032THEN64 itera 134 

48 POKEPO-DR, 32 : POKEPO, 1 9: POKEPO+Q, OlPOKE 
S2,0 itera 86 

50 FORESI ,1 28; POKESX, 32:X>INT (RND (1 > *8) +1 

: rem 1 79 

52 JJ» ( X - 2 ) *22- (X-l) *22- (X-3) + (X-4) +(X-5) 
*23-{X-6)*23+(X-7)*21- (X-8> *21 

Itera 149 

54 SX"SX+JJi IFSX<76B0ThTENSX"SX+506 : POKESX 
-JJ,32 iteti 46 

56 IFSX>81 87THENSX-SX- 506: POKESX- JJ, 32 

irete 171 

58 IFPEEK (SX)-1 9THENPOKESX-JJ, 33 t POKESX+Q 
-JJ , 6 t POKEPO , 20 I POKEPO+Q , 0 I G0T078 

Itera 43 

60 POKESX, 33iP0KESX+Q,6lP0KESl ,0iGOTO28 

itera 234 

62 PRINT" { 2 GIU' }{RVSÌ (BLK) TROPPO TARDI" 
l POKEPO, 20; POKEPO+Q, OiGOT082 itera 168 

64 IFPBEK (PO) "21 ORPEEK (PO) "33THENPOKBPO-D 
R, 20 : POKEPO+Q-DR, 0 : GOT078 itera 218 

66 IF PEEK (PO) 022THEN72 nera 134 

68 POKEPO- OR , 32 : POKEPO ,19: POKEPO+Q , 0 1 SO-S 
0+ INT {RND ( 1 ) *10+1 ) *50lPOKES3,230+B4lTX 
"TX+1 itera 90 

70 IFTX54THEN94 i rem 176 

72 IF PEEK (PO) 021 8THENBI-Bt+2lG0T04S 

trem 152 

74 POKEPO- DR , 3 2 : POKEPO , 1 9 : POKEPO+Q , 0 

: tetti 1 1 

76 PRINT" {HOME} {RVS} { 2 DES} [BLK] 3000 PUN 
TI I " l SO-SO+3000 1 Al 4-1 : P0KBS3 ,250 :GOT09 
4 trem 27 

78 PO RESI , 0 : POKES3 , Oi FORP"0TO53i POKES2, 1 8 
0 - P I FORL • 1 T02 0 I NEXT t NEXT Item 180 

80 ME-HE-1 : IFME">1 THBNZZ"ZZ- 1 5 I PRINT" 

[CLR] " : GOTOB irem 222 

82 PRINT" [MOKE] [RVS] { 4 GIU’}{BLK}":FORP- 
1TO10iPRINT"[RVSHBLK}GAME OVER" : POKBS 
1 ,1 28:FORL>lTO100:NBXT Item 86 

84 PRINT" ( SU } [ 8 SPAZI } { SU J ™ I POKES1 ,0l POR 
L"1 TOI 00 iNEXTl NEXT: IFSO>HSTHENHS-SO 

irem 150 

86 POKE36869, 240: POKEl 98,0 iPRINT" [CLR] 
(BLK}{ 2 GIU' } PUNTI “"SO: PRINT" (GIU ' }LI 
V. "W: PRINT" [GIO' ( [BLK] ANCORA? (S O N) " 

itera 1 

88 GETC$:IFC$-"N"THENPOKB371 39 , 1 28 : POKE37 
154,255: END itera 40 

90 IPC$-"S"THBN4 rrera 150 

92 G0T088 nera 20 

94 BO-INT(966-TI) *3: IFPEEK (TP) *1 54THBNBO- 
0 : rem 42 

96 PRINT" [HOME] { 3 GIU ' } [RVS }{BLK ) LI V. " ; W 
i "FINITO" :TX"0:IFW-5ORW-1 QORW- 1 5ORW-20 
ORW-25THEN1 1 8 lieti 45 

98 W-W+l : PRINT" [RVS] [GIU’ } BONUS -"BO: SO" SO 
+BO: PRINT" [RVS] [GIU* }PUNTI»"SO 

nera 79 

100 PRINT" [RVS } [GIU ‘ } VITE" ; ME: POKES 1,0: PO 
KES2 , 0: POKES3 , 0: POKES3+1 ,0:PRINT" 
(RVSHGIU’ }BO«BE"2A:BI-0 nem 75 

102 READN.D: IFN- - 1 THENPOKES2+A1 l,0:Alt>0: 

GOTOlOB nera 106 

104 POKES 2+ Al % ,N:PORP-lTOD:NEXT:GOTOl 02 

:rem 202 

107 DATA 0,5,220,120,0,5,230,450,-1,-1 

nera 25 

1 08 FORP» 1 T02 500 : NEXT: PRINT" [CLR] * iRESTOR 

B: GOTO 8 itera 200 


44 SUPtRCOMMOOOftE* I/B5 



no POKETP, 30 : PRINT* {CLR] { 3 GIU f }{RED}"S 
PC ( 6 ) "APPLE HUNTÌ 3 GIU 1 } w : PRINT" 
ì 3 GIU 1 ) { 3 DES} {BLK} MAX. PUNTEGGIO*" 
HS j reta 57 

112 PRlSir'i 4 GIU' }{DES} (PURHRVSJ PREMI U 
N TAS':o" : rem 31 

n 4 GETAO : IPA8** "THENl 1 4 :rem 79 

116 RETURN : rem 120 

1 1 6 PO KES 2 , 0 ; FORP* 1 TO I 0 : PRINT" { HOME } {RVS} 
VITA B BOMBA EXTRA" E PO KES 3 , 240 ! FORL*1 
TOl 00 : NEXT trem 84 

120 PRINT" È SU} { 16 SPAZ I } * : POKES 3,0: FORL» 
ITO! 00 : NEXT: NEXT: PRINT" { 2 GIU 1 )" 

trem 110 

122 HE-KE+1 :ZA-2A+1 IGOT09B treni 63 

1 24 B-PEEK (37137) AND3 2 1 IFBO0THBN5G 

126 IFZA-<0THBN$0 Irem 0 

128 ZA-ZA-1 ; POKETP, 203 trem 58 

130 PO KEPO+1 ,192: POKEPO- 1 , 1 92 : POKEPO- 22 , 2 
21 : PO KEPO + 22,221 trem 702 

132 POKBPO+2T ,206: POKEPO- 21 , 206: POKEPO- 23 
, 205 : PQKEPQ+23 ,205 tram 202 

1 34 PQKEPO+l+Q,QtPOKEPO-l+Q,1 iPOKEPO-22+Q 
, 2 ; POKEPO+22+Q , 3 trem 190 

1 36 POKEPO+ 2 l+O, 4: POKEPO- 21+G,5s POKEPO- 2 3 
+0 , 6 : PO KEPO+ 2 3+Q , 7 irei 54 

1 38 FOKL*1 TOl 00 : POKBS3+T ,150: NEXT: POKES 3+ 
1,0 trem 158 

1 40 IFPEEK (SX) O33THENS0-S0+1 000 : POKES 3 , 2 
4 0 : FRI NT" { HOME } {RVS H BLK} 1 000 PUNTI I * 

: GOTO 9 4 trem 132 

142 POKESX ,32: SX* SC+ 1 NT ( RND ( 1 ) *506)+! :POK 
EPO+1 , 32 : POKEPO - 1 ,32; POKEPO -22,32: PO K 
EPO+22,32 trem 230 

144 POKBPO+21 ,32; POKEPO- 21 , 32 : POKEPO- 2 3 f 3 
2 : POKBPO+ 23,32; PO KETP ,251 :TI$-*00OQ0O 
": GOTO 50 :rem 72 


Apple Unni versione per C16 

100 TP-65305:S*-1024:VOL8 tram 150 

ITO FORE-1 TOSA : READA: X-X+At NEXT :rem 230 

1 20 IFXO93099THENPRINT" {CLR} {BLK} ERRORE 
NELLE ISTR. DATAI l":STOP trem 176 

130 RESTORE : reta 184 

140 POKBTP ,12: POKETP-4 ,12; PRINT" (CLR } 

{NHTH 9 GIU 1 }"TAB(T0) "BENVENUTI NELL 
A" trem 25 

ISO FRINTTA8 [7 2) ™ { 4 GIU 1 ) {BLK} * { RED } AFPL 
E { BLU } NUNT { BLK } * * : FOR 1*1 TO 1000: NEXT : C 
OLORO, 2: COLORI ,2:GOTOl 270 :rem 23 
160 GOSUB430 :POKE65298,PEEK (65298) AND251 

; rem 64 

170 POKES 5 299,56: COLOR 1,1 :rem 180 

180 PO KB 52, 55: POKES 6 , 55 ; rem 47 

190 PRINT" {BLK} { 4 GIU 1 } "TAB 1 6) ■ {RVS } VUOI 
LE ISTRUZIONI? (S/N)" : rem 71 

200 GBTKEY : I F Z$ * " "OR ( Z$ < > " S * AND Z$ < > " N " 

) TKEN200 ; rem 64 

210 IFZ$-"N"THBN48Q : rem 58 

220 POKETP , t : PO KETP-4 , 1 trem 143 

230 A3*" {CLR} {BLK} { 4 GIU * } " : PRINTA3 "TU S 
EI I, SCOPO DEL GIOCO E* :rera 160 
240 PRINT "MANGI ARE { 3 SPAZI} TUTTE LE MELE 
( { REO } * { BLK } ) w » ; rem 83 

250 PRINT" NEL BOSCO. DEVI EVITAREGLI ALBE 
RI ( (GRN} { {BLK}) E "f trem 136 

260 PRINT" I MOSTRI { {BLU} 1 {BLK}) , USA IL J 
OY- STICK PER MUOVERE 1 ATTRAVERSO IL 
BOSCO." trem ri 09 


270 

280 

290 

300 

310 

320 

330 

340 

350 


360 

370 


380 


390 

400 

410 


420 

430 

440 

4 50 

460 

470 

480 

490 

500 


510 

520 

530 

540 

550 

560 


PRINT" PUOI MUOVERTI NELLE QUATTRO DIR 
EZ IONI . " : rem 157 

PRINT"! HA UN TEMPO LIMITATO PER MANG 
IARR{ 5 SPAZI] TUTTE LE {RED}i{BLK}, L 
O SCHERMO srem 221 

FRI NT" DI VENTA ROSSO SE 1 STA PER FINI 
RE IL SUO TEMPO. ”:GQSUB1 240 : rem 22 
PRINTA3*{BLU} I {BLK} MANGERA’ SIA 
{GRN} [{BLK} CHE (RED } 6 { BLK } . " ; 

trem 172 

PRINT"SB I RAGGIUNGE { BLU } J ( BLK } G 
(GRN) [{BLK}, HAI PERSO." trem 152 
PRINT" PREMI FUOCO PER BUTTARE UNA BOM 
BA. UNA E 2 SPAZI} BOMBA PUÒ* DISTRUGGE 
RE "j trem 176 

PRINT” {GRN} [{BLK} E REI NI ZI ALI ZZAI L T 
EHPO. SE {BLU } 1 (BLK) VIENE COLPITO DA 
UNA BOM-BA, trem 57 

FRI NT" GUADAGNI 1000 PUNTI." :rem 39 
PRINT" {BLU} 1 {BLK} VAGHERÀ* ATTORNO A 
{RED } k {BLK } FINO A CHE 1 LO 
[ 2 SPAZI JKANGI O {BLU} 1 {BLK} LO RAGG 
I UNGA . " ; rem 126 

GOSUBl 240 trem 224 

PRINTAS"A VOLTE UN {PUR}# {BLK} APPARE 
SULLO SCHERMO: { 2 SPAZ I } DEVICERCARE 
DI "I trem 5 

PRINT" PRENDERE {PUR}* {BLK] PRIMA DI 
{BLU}! {BLK}. PUOI{ 2 SPAZ I ]GUADAGNARE 
3000 PUNTI SE PRENDI "? trem 3 
PRINT" ( PUR } I {BLK } - PER{ 2 SPAZI }OGNI 
{ RED } & {BLK} PUOI OTTENERE w ;:rera 174 
PRINT" TRA 50 E 500 PUNTI," :rem 73 
PRINT" OTTI ENI UN I E UNA BOMBA EXTRA 
DOPO LE { 2 SPAZI }ONDATE 5,10,15,20 E 
25" trem 100 

GOSUBl 240 : FRI NT" {CLR} * : GOTO 480 


READ V : I PV* - 1 TH E M4 50 trem 139 
FORI ■ VTOV+ 7 : READ A : POKE I , A ; NEXT : GOT04 3 
0 trem 239 
D I MN ( 1 6 ) t FORI * 1 TOl 6 : READN li) : NEXT 

ì rem 1 8 

FORT* 0TO8 : READDR (T) tNEXT ; rem 39 
RETURN trem 123 
PRINT" {CLR}" :SO*0:TX*0 ;SC»3072 : ZZ*45; 
W-l :ME-2:ZA-2 trem 135 
DEFFND(Z) *ABS{ ( JV-2) * 1 + ( JV-1 ) *2+ (JV-8 
) *3+ ( JV*4 ) *4 ) trem 205 
POKETP,! ; PO KETP- 4,1 : FORL- 1 TOZZ : X-INT { 
RND ( 0) *960) : POKESC +S+X , 5 : PO KESC +X ,27 

;rem 115 

NEXT: ZZ*Z2+27 trem 72 
TR* INT (RND { 1 ) *6 ) +6 : FORP-1 TOTR: TA-INT ( 
RND ( 1 ) * 9 6 0 ) +SC trem 61 
PO RETA ,38: PQKETA+S , 2 trem 205 
I F I NT ( RND ( 1 } * 1 00 } +1 < ■ 3 TWBNPO RETA , 3 5 1 P 
OKETA+S , 4 srem 240 
NEXT trem 217 
SX* I NT ( RND (1 } *960) +SC : POKESX ,33: POKES 
X+S,6 trem 73 
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570 

PO«INT(RND(1) *960» +SC: 

POKEPO, 37 SPOKEP 


O+S,0 

; rem 

36 

580 

FORL* 1 T03 S POKEPO . 37 ! FORP- ? TOl 00 : NEXT 



: rem 

62 

590 

POKEPO, 32 :FORP*1 TOl 00: 

NEXT: NEXT: PO KEP 


0,37 

: rem 

160 

600 

TÌ$-"OOGOOO" 

: rem 

248 

610 

IFTI->1 1 OOTHENPOKETP, 2 

: IFTI“>1 400THEN 


770 

: rem 

211 

620 

A* JOY (2) : FR«1 6: IFA>1 2 7THENFR* 0 : A- A- 1 2 


8 

: rem 

216 

630 

RESTORE 1290: FORI»! TOA 

:READJV:NEXT:IF 


A-OTHESJV-O 

: rem 

103 

640 

I F J V< > 0 AND JV< > 1 2 8THEN 

SOUNDl , 850, 

1 



; rem 

10 

650 

IFPR«0THEN1 030 

; rem 

34 

660 

XX*PND ( Z). : IPXX*0THEN7 1 0 :iem 

185 

670 

DR-DR(XX) sPO-PO+DR: IFPO>4071 THENPO-PO 


-960 : POKEPO-DR+960, 32 

: rem 

139 

680 

IFPO<3072THBNPO-PO4-960 

: POKEPO-DR- 

960, 


32 

; rem 

112 

690 

IFPEEK ( PO) O32THEN760 

: rem 

240 

700 

POKEPO-OR, 32: POKEPO, 37 

: POKEPO+S, 0 




; rem 

57 

710 

POKESX, 32 :X»INT (RND (1 ) »8) +1 :rem 

50 

720 

JJ-DR(X) 

: rem 

169 

730 

SX-SX+ J J : I FSX < 3 0 7 2 THENSX- S X + 9 6 0 : PO KES 


X-JJ.32 

: rem 

90 

740 

IFSX > 4071 THENSX«SX- 960 

: POKESX- JJ, 

32 



: rem 

21 1 


750 IFPEEK (SX> «BTTHENPOKESX-JJ, 33: POKESX+ 
S- J J , 6 : POKEPO , 29 : PQKEPO+S , 0 : GOTO850 

: rem 


760 POKESX #33; FQKE5X+S , 6 ì GOTO 6 1 0 : r ex 
770 PRINT" { 2 GIU* }{ BLK] TROPPO LUNGO ! " : PO 
KEPO ,29: POKEPO+5 , 0 : G0TO8 60 creiti 61 
700 IFPEEK (PO} -270RPESK (PO} *33THENPOKEPO- 
DR , 2 9 : POKEPO+S -DR , 0 : G0TO8 50 : rem 70 
790 IFPEEK (PO) O38THENB20 : rem 242 

800 POKEPO-DR, 32; POKEPO, 37 : PQKEPO+S , 0 : SO» 
SO+INT ( RND (1 ) *10+1 ) *50:TX-TX+1 

:rem 99 

810 IFTX>4THEN950 :rem 19 

820 IFPEEK (PO) O35THENS0UND1 t 550, 1 0 :GOT07 
00 : rem 102 

830 POKBPO-DR , 32 : POKEPO , 37 : POKEPO+S , 0 

t rem 61 

840 PRINT** (HOME} { 2 DES } (BLK} 3000 PUNTI - " 
:SO»SO+3000;GOTO950 s rem 133 

850 SOUND 1 ,1 10,30: HE-ME-1 : lFKE-> 1 THENZZ-Z 
Z - 2 7 : SCNCLRS GOTO 500 2 rem 21 

860 PRINT" ÌhOMEH 4 GIU 1 }{ BLK } * : FORP- 1 TOl 
0 :rem 57 

870 PRINT** {BLK} GAME OVER" : FORL-T TOl 00 : NEX 
<P : rem 222 

880 PRINT" |SUH 13 SPAZI }{SU 1 FORL-1 TOl 0 
0 : NEXT : NEXT : I FSO >HSTHENHS ■ SO : r etn 1 29 
890 POKETP , 1 : POKETP- 4,1 : PRINT" {CLR} "TAB ( 1 
2 } " (BLK) ( 7 GIU * } PUNTI* "SO: PRINTTAB ( 1 
2) "{GIU* } LIV * *"W irem 21 1 

900 PRINTTAB (1 2) ” {GIU 1 ) MAX • PUNTEGGlO«"HS 

:rem 164 

910 PRINTTAB (ert 3 GIU * } { BLK)GIOCHI ANCO 
RA (S/N) ?* : POKE239,0 i rem 184 

920 GBTKEX Z$ : I FZS*" "OR ( Z$< > "S" ANDZS <>"N" 
) THEN920 Sirem 82 

930 IF2$-"S"THENPRINT" {CLR} " : GOTO480 

:rem 31 

940 SCNC LR:END 1 rem 115 

950 BO« INT (1 400- TI) *3 1 IF ( PEEK (TP) ANDl 5) ■ 2 
THENBO*G ! rem 157 


960 PRINT" {HOME} £ 3 GIU ' } {BLK } LI V. " ; W; " FI 
N I TO " : TX - 0 ; TR« 0 : 1 PW- 5ÓRW« 1 0ORW- 1 SQRW» 
200RW-25THEN1000 : rem 191 

970 W*W+1 : PRINT" {GIU* } BONUS- "BO : SO- SO+BO i 
PRINT" {GIU 1 } PUNTI *"SQ :rem 90 

980 PRINT" {GIU* } VITE" ; ME : PRINT" { GIU f }BOMB 
E"?ZÀ : rem 223 

990 SOUNDl , 1000, 20 :FORl-OTOl 000 ;NEXT: SCNC 
LR: GOTOBOO 2 rem 146 

1000 FORP-lTOlO: PRINT" {HOMEjVITA E BOMBA 
EXTRA" tFORL»! TOl 00 i NEXT i rem 110 

1010 PRINT" {SU} { 17 SPAZI }":FORL“lTOl 00 ;N 
EXT: NEXT: PRINT" { 2 GIU* }" 2 rem 82 

1020 ME-ME+1 : ZA-ZA+Ì :GOTO970 :rem 156 

1 0 30 IF2A-<0THEN71 0 ; rem 94 

1040 ZA* ZA- 1 : POKETP -4,4: POKETP , 3 : SOUND 3 , 5 
00,50 : rem 24 

1050 POKEPO+1 ,64: POKEPO- 1,64: POKEPO- 40, 93 
: P0KEPG+40 , 93 : rem 226 

1060 POKEPO+39 , 78 : POKEPO- 39,78: POKEPO- 4 1 , 
77 : POKEPO+4 1 ,77 :rem 105 

1 070 POKEPO+ 1 +S , 0 : PO KEPO- 1 +S , 2 : POKEPO- 40 + 
S , 3 : POKEPO+40+S , 4 i rem 249 

1 080 POKEPO+39+S , 5 : POKEPO- 39+S , 6 : POKEPO-4 
1 +S , 7 : POKEPO+41 +S , 8 2 rem 131 

1 090 FORL-ITOI 00: NEXT :rem 24 

1100 IFPEEK ($X) <>33THENSO*SO+l 000 : PRINT" 
{HOME} {BLK }1 000 PUNTI GOTO950 

: rem 44 

11 10 POKESX, 32:SX-SC+INT{RND(1) *960)+! : PO 
KEPO+1 , 32 : POKEPO- 1 ,32 :rem 196 

1120 POKEPO- 40 , 32 : POKEPO+4 0 ,32 : rem 220 

1130 POKEPO+39 ,32: POKEPO- 3 9 , 32 : POKEPO- 41 , 
3 2 : POKEPO+41 ,32 :rem 65 

1140 POKETP, 1 : POKETP- 4,1 : TI$«" 0QG000" : GOT 
071 0 : rem 1 04 

1150 DATA 14632,60,66,165,129,165,153,66, 
60 : rem 82 

1160 DATA 14600,195,34,20,156,126,29,8,11 
9 : rem 24 

1170 DATA 14568,60,66,165,129,153,165,66, 
60 ;rem 92 

1180 DATA 14552,0,28,62,127,127,62,8,8 

: rem 93 

1190 DATA 14640,6,8,60,126,126,126,60,24 

:rem 175 

1200 DATA 14616, 60, 126, 255, 255, 126, «0,24, 
8,-1 ;rem 157 

1210 DATA 35,40,45,50,55,60,65,70,75,80,8 
5,90,95,100,105,110 s rem 127 

1220 DATA 0,40,-40,1 , - 1 ,-41 ,41 ,-39,39 

:rem 239 

1 230 RETURN : rem 166 

1 240 PRINTTAB (1 4} "{ 2 GIU 1 } {HVS } PREMI UN 
TASTO (OFF}" : rem 150 

1 2 50 GETKEY Z$ : rem 15 

1260 RETURN :rem 169 

1270 PRINT" {CLR}MO{ 6 GIU 1 } { 2 SIN}T D000 

D7FF 3800 { 1 GIU'}{ 12 SIN}X 
{ 2 GIU* HSINjGOTOl 60" : rem 73 

1 280 POKE239, 5: PGKE1 31 9 , 1 9: POKE1 320,1 3: PO 
KE1 321 ,13:P0KE1 322,1 3:FOKEl 323,1 3 

: rem 200 

1290 DATAI ,9,8,10,2,6,4,5 ; rem 238 


Appk Hnnt verdone per C64 

100 POKE56, 4 8 :CLR:TP*53280 : rem 251 

1 1 0 FORI -1 TOl 6 2 : READ A : X »X+ A : NEXT : rem 1 5 

1 20 IFXO90689THENPRINT" {CLRHBLKJERRORE 
NELLE ISTR# DATAI I " : STOP i rem 178 
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130 RESTORE i POKETP #12; POKETP+ 1 r 1 2 ; PRINT" 
{CLR}{WHT}{ 9 GIU 1 } "TAB (10) * BENVENUTI 
NELLA 11 : rem 1 1 3 

140 PRINTTAB (12} * { 4 GIU 1 } {BLK}* (RED 1 APPL 
E { BLU } HUNT { BLK } * " : GOSUBl 300 : GOSUB3 70 

:rem 103 

150 PRINT" {BLK } ( 4 GIU* } M TAB{6) " {RVSjVUOl 
LE ISTRUZIONI? (S/N}" :re m 67 

1 60 GETZS; IFZ$-" "OR ( Z$O w S" ANDZ$0"N* ) THE 
Ni 60 : rem 97 

170 IFZ$-"N"THEN440 :rera 59 

180 POKETP , 1 : POKETP+ 1,1 ;rere 143 

190 A$-"{CLR} {BLK)( 4 GIU 1 } " : PRI NTA$ * TU S 
EI %. SCOPO DEL GIOCO E 1 "j :rem 165 
200 PRI NT" MANGI ARE { 3 SPAZI }TUTTE LE MELE 
{ (RED } Ir { BLK } ) " j srem 79 

210 PRINT"NEL BOSCO. DEVI EVI TAREGLI ALBE 
RI ( {GRN} [ (BLK}) B"; :rem 132 

220 PRINT"! MOSTRI ( (BLU } l {BLK} ) • USA IL J 

OY- STICK PER MUOVERE 4 ATTRAVERSO IL 
BOSCO. " ; rem 105 

221 PRI NT" PUOI MUOVERTI NELLE QUATTRO DIR 

EZIONI.” : rem 153 

230 PRINT"! HA UN TEMPO LIMITATO PER KÀNG 
I ARE { 5 SPAZI} TUTTE LE {RED ) 6 { BLK } * L 
O SCHERMO "j : rem 216 

240 PRI NT" DI VENTA ROSSO SE % STA PER FINI 
RE IL SUO TEMPO,": GOSUBl 310 :rem 15 
250 PRINTA$ " { BLU } ! £ BLK } KÀNGERA 1 SIA 
{ GRN H {BLK} CHE (RED) 6 {BLK}."; 

: rem 1 76 

260 PRINT" SE ! RAGGIUNGE {BLUjljBLK} O 

{GRN} [ {BLK} , HAI PERSO." : rem 156 
270 PRINT" PREMI FUOCO PER BUTTARE UNA BOM 
BA. UNA { 2 SPAZI} BOMBA PUÒ r DISTRUGGE 

re * j : rem 1 80 

280 PRINT" {GRN} ( {BLK} E REINI Z I ALI 22 AIL T 
EMPO. SE {BLU} l {BLK} VIENE COLPITO DA 
UNA BOM-BA, srem 61 

290 PRINT"GUADAGKI 1 000 FJNTI," :r*m 4 3 

300 PRINT" {BLU} 1 {BLK} VAGHERÀ * ATTORNO A 
{ RED }k[ BLK } FINO A CHE ! LO 
{ 2 SPAZI }MANGI O {BLU} 1 {BLK} LO RAGG 
IUNGA- " ; rem 121 

305 GOSUBl 310 : rem 221 

310 PRINTAS ir A VOLTE UN {PUR}# {BLK } APPARE 
SULLO SCHERMO: { 2 SPAZI }DEVICBRCARE 
DI M ; : rem 255 

320 PRI NT" PRENDERE {PUR}#{BLK> PRIMA DI 

{BLU} ! {BLK} • PUOX{ 2 SPAZI } GUADAGNARE 
3000 PUNTI SE PRENDI ■; : rem 2 

330 PRINT" {PUR}# {BLK} . FER{ 2 SPAZI IOGHI 
{RED} & {BLK} PUOI OTTENERE * ; 3 rem 166 
340 PRINT"TRA 50 B 500 PUNTI." jrere 76 
350 PRINT" OTTI ENI UN 1 E UNA BOMBA EXTRA 


DOPO LE{ 2 SPAZI }ONDATE 5,10,15,20 E 



25" 

: rem 

103 

360 

GOSUBl 31 0 : PRINT" {CLR}"i 

GOTO 4 40 

: rere 

135 

370 

POKES 3 272 ,28: SYS 823 

: rem 

61 

380 

READV: IFV-- 1 THEN400 

: rere 

138 

390 

FORI-VTOV+7: READ A: POKEI 

, A: NEXT: GOTO 3 8 


0 

: rem 

247 


400 S« 54272 :FORL-STOS+24;POKEL,0:NEXT 

ftem 54 

410 HF-S+1 : D1MN (16) ; FORI - 1 TOl 6 : READN ( I ) ;N 
EXT: GOSUBl 340 : rem 66 

420 FORT»0TO8:READDR(T) :NEXT :r ere 35 

4 30 RETURN : rem 119 

440 PRINT" {CLR] W :SO-0:TX-0:SC-1 024 :ZZ«45: 

W-l :ME-2: ZA- 2 : rem 126 

450 DEFFND(Z) -ABS ( ( JV-2) * 1 + ( JV- 1 } *2+{JV-8 
} *3+ t JV-4} *4) : rem 201 


460 POKETP,! :PQKETP+1 ,1 : FORL- 7 TOZZ : X- INT ( 
RND(0) *960) :PQKESC+S+X,5:POKESC+X,27 

: r ere 115 

470 POKES+24 , l 5 : POKES+4 ,17: POKEHF , 50 : POKE 
S, 100: POKES+4, 1 6:NEXT: ZZ-ZZ+27 

: rem 138 

4 60 TR-INT(RND{1 } *6) + 6 : FORP-1 TOTE: TA-INT { 
RND(l) *960) +SC : rem 66 

490 POKES+4 , 6 5 : POKEHF , 1 5 : POKES+3 , 1 5 : POKES 
+ 2 , 20 : POKES + 4 , 6 4 : POKETA , 38 : POKETA+S , 2 

: rere 1 7 

500 IFI NT ( RND ( 1 ) *1 00) +1 <,- 3THENPOKETA , 35 : P 
O KETA+S ,4 : r ero 2 36 

510 POKES+4, 1 7: POKEHF, 50: POKES , 200 : POKBS+ 
4,16: NEXT :rem 52 

520 SX- 1 NT ( RND ( 1 ) * 960 ) +SC : POKESX , 3 3 : POKES 
X+S , 6 :rem 69 

530 PO- 1 NT ( RND ( 1 ) * 960 ) +SC : POKEPO , 37 : POKEP 
O+S , 0 : rem 32 

540 FORL- 1 TO3 : POKEPO , 37 : FORP-1 TOl 00 : NEXT 

:rem 58 

550 POKEPO, 32:FORP-1 TOl 00; NEXT: NEXT: POKEP 
0,37 :rem 156 

560 Tl$-"000000 n : rem 253 

570 IFTI - >1 1 00THENPOKETP , 2 : IFTI -> 1 4 00THEN 
710 :rem 210 

560 JV-PEEK (56320) : FR-JVANDl 6: JV-1 5- ( JVAN 
DI 5} : I FFR-OTHEN970 :rem 74 

590 XX-FND(Z) : IFXX-OTHEN650 :rem 190 

600 DR-DR(XX) : PO-PO+DR : I PPO>202 3THENPO-PO 
* 960 : POKEPO -DR+960 ,32 : rere 127 

610 I FPO< 1 024THBNPO-PO+96Q : POKEPO- DR- 960, 
32 ;rem 100 

620 IFPBEK (PO) O32THEN720 ;rem 227 

630 POKES+4 ,65: POKEHF,! 5: POKEPO-DR, 32: POK 
EPO, 37 : POKEPO +S , 0 : POKES+3 , 1 S : rem 34 

640 POKES + 2,20: PO KES + 4,64 : rem 184 

650 POKESX, 32 :X-INT(RND (1 ) *8) +1 : rem 53 
660 JJ-DR(X) : rem 172 

6 70 SX-SX^JJ : IFSX< 1 024THENSX-SX+960 : POKES 
X- JJ , 32 : rem 68 

680 IFSX>2023THENSX-SX-960: POKESX- JJ, 32 

:rem 209 

690 XFPEEK (SX) -3 7THENPOKESX- JJ , 33 : POKESX+ 
S- J J , 6 ì POKEPO ,29: POKEPO+S , 0 : GOTO? 9 0 

:rem 155 

7 00 POKESX ,33: POKES X + S , 6 : GOTO570 ; rem 6 

710 PRINT" { 2 GIU* } {BLK} TROPPO LUNGO! *: PO 
KEPO, 29: POKEPO+S, 0:GOTO600 : rem 49 

720 IFPBEK (PO) -270RPEBK ( PO} «3 3THBNPQKEPO- 
DR , 29 : POKEPO+S-DR, 0 : GOTO? 90 :rem 75 
730 IFPBEK (PO) O36THEN760 :tem 239 

740 POKEPO-DR, 3 2 : POKEPO « 3? : POKEPO+S , 0 : SO- 
SO+INT { RND ( 1 ) *10 + 1 } *50:TX-TX+1 

;rem 102 

750 GOSUBl 440 :IFTX>4THEN890 irem 156 

760 IFPEEK(PO) O35THEN630 : rem 235 

770 POKEPO-DR, 32: POKEPO, 37: POKEPO+S, 0 

:rem 64 

7B0 PRINT" (HOMEH 2 DES H BLK } 3000 PUNTI," 
: SO-SQ+3G00 : G0TO89Q : rem 139 

790 GOSUBl 390 ; ME -ME- 1 : IFME-> 1 THENZZ-ZZ- 27 
: PRINT" {CLR}":GOTO460 : rem 2 

800 PRINT" {HOME} { 4 GIU * } { BLK } ■ : FORP- 1 TOl 
0 : rem 51 

810 PRINT" {BLK} GAME OVER" : FORL- 1 TOl 00 : WBX 
T :rere 216 

820 PRINT" {SU} { 13 SPAZ I }{SU }": FORL- 1 TOl 0 
0 : NEXT: NEXT: IFSO>HSTHENHS«SOr rem 123 
830 POKETP,! :POKETP+l ,1 : PRINT* {CLR}"TAR(1 
2 } " { BLK } { 7 GIU 1 } PUNTI -"SO: PRINTTAB (1 
2) " {GIU 1 }LIV.«"tf : rem 200 
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840 PRINTTAB (12) " {GIU 1 }MAX . PUNTEGGIO» "HS 

: rem 167 

850 PRINTTAB (8) " { 3 GIU 1 }{ BLK} GIOGHI ANCO 
RA {S/N) ?":POKEl 98,0 srem 191 

860 GBTZS : I FZ$ «" "OR ( Z8< > " S" AND Z $ <> n N" ) THE 
N86Q : rem 1 T 1 


870 IFZ$- n S" THENPRINT" {CLR} " ; GOT044G 

:rem 30 

BBC POKE5327 2,21 : END irei 114 

890 BO-INTM 400-TI) *3s IF (FEEK (TP) ANDl 5) “2 
THENBO-O srem 160 

900 PRlNT rt {HOME} { 3 GIU * } { BLK}LIV. " ;W; " FI 
NITO" s TX - 0 : TR-Q : 1 Ftf » 50RW- 1 0ORW- 1 50RW » 
20GRW-25THEN940 srem 149 

910 W-W+l SPRINT" {GIU* } BONUS =" BO ì SO-SO+BO s 
PRINT" {GIU 1 } PUNTI «" SO :rem 84 

920 PR1NT" {GIU' } VITE" ;ME SPRINT" (<3lU 1 }BOHB 
E" ; ZA : retti 217 

930 GOSUBl 340 1 PRINT" {CLR} * SGOTO460 

srem 143 

940 FORF-lTOlO SPRINT" {HOME} VITA E BOMBA E 
XTRA" s FORL- 1 TO 1 0 0 : NEXT : rem 74 

950 PRINT" {SU }{ 17 SPAZI } " : FORL-1 TOl 00 % NE 
XT : NEXT : PRINT" { 2 GlU r }" :rem 46 

960 ME-ME+1 :ZA-ZA+1 SGOTO910 srem 114 

970 IFZA-<0THEN650 srem 61 

980 ZA-ZA-1 :POKETF+l ,4:POKBTP,3 srem 167 

990 POKEFO+1 , 64 ; POKEPO- 1 , 64 : POKEPO- 40 , 93 s 
POKEPO+40 ,93 : rem 1 90 


1000 FOKEFO+ 3 9 , 7 8 : PO KEPQ- 39,78: POKEPO- 4 1 , 
77:POKEPO+41 ,77 :rem 99 

1010 POKEPO+1 +S , 0 : POKEPO- 1 +S , 2 : POKEPO- 40 + 
S , 3 s FQKEPO+40+S , 4 t rem 243 

1 020 POKEPO+39+S , 5 : POKEPO- 39+S , 6 : POKEPO- 4 
l+S,7sPOKEPO+41+S,8 s rem 125 

1030 FDRL*1T0100;NEXT : rem 18 

1 040 IFFEEK (SX) O33THENS0-SQ+1 000 ; PRINT" 
{HOME} {BLK}1 000 PUNTI *" : GOTO890 

:rem 50 

1050 POKESX,32:SX*SC+INT{RND(l ) *960) +1 ; PO 



KEPO+1 ,32; POKEPO- 1 ,32 srem 

199 

1060 

POKEPO- 4 0 , 3 2 s POKEPO+ 4 0,32 :rem 

223 

1070 

POKEPO+39 ,32: POKEPO- 3 9 , 3 2 s POKEPO- 

*1, 


32 S POKEPO+41 ,32 ;rem 

68 

1080 

POKETP, 1 SPOKETP+1 , 1 : Tl3« rt 000000" s 

GOT 


0650 

srem 

105 

1090 

DATA 

173,14,220,41,254,141,14 




: rem 

123 

1100 

DATA 

220,173,24,208,41 ,14,10 




: rem 

62 

ilio 

DATA 

10,133,167,169,208,133,252 




s rem 

229 

1120 

DATA 

173,0,221 ,41,3,73,3 srem 

1 23 

1130 

DATA 

10,10,10,10,10,10,5 srem 

98 

1140 

DATA 

167,133,254,165,1 ,41 ,251 




s rem 

1 30 

1150 

DATA 

133,1 ,169,0,133,251 ,133 

71 



srem 

1160 

DATA 

253,168,162,8,1 77,251 ,145 




srem 

197 

1170 

DATA 

253,200,208,249,230,252,230 




srem 

19 

1180 

DATA 

254,202,208,242,165,1 ,9 




srem 

83 

1190 

DATA 

4,133,1 ,173,1 4,220,9 srem 

1 82 


1200 DATA 1 r l 41 ,14,220,96 :rem 188 

1210 DATA 12584,60,66,165,129,165,153,66, 
60 srem 83 

1220 DATAI 2552, 1 95,34, 20, 156,1 26, 29,8 ,11 9 

srem 25 

1230 DATA 12520,60,66,165,129,153,165,66, 
60 s rem 75 

1240 DATA 12504,0,28,62,127,127,62,8,8 

srem 75 

1250 DATA 12592,6,8,60,126,126,126,60,24 

t rem 176 

1260 DATA 12568,60,126,255,255,126,60,24, 
8,-1 irei 167 

1270 DATA 35,40,45,50,55,60,65,70,75,80,8 
5,90,95,100,105,110 s rem 133 

1280 REM DATA 35,63,75,95,107,109,315,125 
,131 ,132,1 35,140,1 37,1 35,137,140 

; X em 3 8 

1290 DATA 0,40, -40, 1,-1 ,-41 ,41 ,-39,39 

i r em 246 

1300 AD*828:FORI*ADTGAD+81 : READ A: POKEI , A: 

NEXTI : RETURN srem 162 

1310 PRINTTAB ( 1 4 ) " { 2 GIU 1 } { RVS } PREMI UN 
TASTO {OFF}" srem 148 

1320 GETZ$ s I F Z$ = " " THENl 320 ; rem 225 

1330 RETURN srem 167 

1340 POKES+24,1 5 : PQKES+5 , 90 : POKES+6 , 2 40 

srem 253 

1350 POKES+4, 1 7;PORO-OTG3 :rem 241 

1360 FQRL* 1 +OTO 8+0 : POKEHF , N { L ) srem 72 

1 370 POKES,! IOsFQRT- ITO 50: NEXT sNEXT; NEXT: 

FORV- 1 STO OSTEP- 1 ì POKES+2 4 , V : t em 183 
1 380 POR 1*1 TOSO : NEXT : NEXT : PGKES+4 ,16: RETU 
RN srem 44 

1390 POKES+24,1 5 : POKES+5 , 90 : P0KES+6 , 240 

srem 2 

1400 POKBS+4,17 srem 58 

1410 FORL* 5 0TO5STEP- 5 * PO KEHF , L :rem 128 
1420 POKES , 5 : FORT- 1 TOSO: NEXT : NEXT : FORV- 1 5 
TOOSTEP-1 :POKES+24,V srem 221 

1430- FORI * 1 TOSO : NEXT : NEXT ; POKES+4 , 1 6 S RETU 
rn srem 40 

1440 POKES+24,1 5: POKES+4, 65 S POKES+3 , 1 5: PO 
KES+ 2 , 20 : FOE I * 1 TO 2 5 OSTEP 5 srem 246 
14 50 POKEHF , I : NEXT : POKES+4 , 6 4 t RETURN 

s rem 64 
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Ecco IM podtrou «fi li tv chi 
cambierà II voatro modo di pro- 
grammare. Àggi Mg* 32 avo vi 
comandi al BASIC del vostro C64 
Indirizzati principalmente al 
“debngglafl’’ ed al controllo del 
vostri programmi; è ntHlaasblle 
afta da sola sfa In congflnmsfone 
con u monitor /assembler di 
llngnagglo macchina, come il SU- 
PERMONITOB pnbbllcato ani 
limerò di Gennaio. 

A vete acquietato la vostra prima 
automobile e vi trovate molto bene, 
ma la prima volta che entrate in auto- 
strada vi accorgete con dispiacere che 
non supera i 100 chilometri all'ora. Che 
fare? 

Portatela dal vostro meccanico di fidu- 
cia, ed egli potrà fornirvi tre alternative: 
togliere il motore e sostituirlo con un 
altro; oppure aggiungere al motore che 
già avete qualche marchingegno turbo- 
compresso ad iniezione elettronica con 
waste -gate controllato da microproces- 
sore, oppure ancora, senza aggiungere 
e togliere nulla, operare una buona 
messa a punto tramite un ‘apposita 
macchina che misura le prestazioni del 
motore. 

Vmm messe a pesto del BASIC 

È possibile aggiungere al proprio com- 
puter dei nuovi comandi di programma- 
zione in tre modi simili; Il primo è disabi- 
litare completamente II BASIC e creare 
"ex novo” un nuovo linguaggio (un nuo- 
vo motore) basato sulle vostre Idee cir- 
ca dò che dovrebbe permettere un 
buon linguaggio di programmazione. 

Il secondo metodo, un'estensione del 
linguaggio, mantiene Li BASIC ed ag- 
giunge alcuni nuovi comandi di pro- 
grammazione (per suono, grafica In alta 
risoluzione, o altre funzioni specializza- 
te). Rimane il "motore” BASIC, ma ven- 
gono aggiunti alcuni "pezzi", che lo ren- 
dono più veloce e più efficiente. Il "Si- 
mon ’s BASIC" e lo "Super Expander 
64" ne sono degli esempi. 

Il terzo metodo è come una messa a 
punto che non modifica II motore. Sì 


aggiungono comandi do usarsi solo In 
modo diretto per 11 “debbugging”. Non 
si tratta di un nuovo linguaggio o di 
un'estensione dei BASIC, ma di un co- 
siddetto “Sistema dì sviluppo”. 1 nuovi 
comandi aggiunti non possono essere 
usati all'Interno di un programma, in 
quanto funzionano soltanto in modo Im- 
mediato. 

1 nuovi linguaggi e le estensioni offrono 
molteplici vantaggi, ma hanno tutti un 
grosso lato negativo: si è obbligati a ca- 
ricare in memoria il linguaggio o l'esten- 
sione prima di caricare un programma 
nel nuovo linguaggio, o che usi i coman- 
di dell'estensione stessa: in caso contra- 
rio non funzionerà nulla e si otterranno 


messaggi di “?SYNTAX ERRGR" a va- 
langa. 

Il vantaggio di un sistema di sviluppo 
come M ET AB ASIC risiede nel fatto che 
rutililo può essere caricata al bisogno, 
quando si sta scrìvendo o verificando 
un programma. Una volta che questo 
sarà finito e corretto non si dovrà più 
caricare METABAS1C per mandarlo in 
esecuzione. 

tlBÌatrodaitoae a M ET AB ABIC 

METABASIC usa termini mnemonici, 
così non dovrete ricordare una gran 
quantità dì Indirizzi di SYS. Inoltre, se 
dimenticate la sintassi del nuovi coman- 
di, potrete o rileggere questo articolo. 
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0 semplicemente digitare HELP sulla 
vostra tastiera. 

1 programmatori in BASIC disporranno 
di 12 nuovi comandi. Per la scrittura 
del programmi sono disponibili AUTO, 
KEY e UNNEW. Per esaminare e modi' 
flcare I programmi d sono CHANCE, 
DELETE, FINO, RENUM e VCHAN- 
GE. 

Appositamente per II "debugging 1 sono 
previsti DUMP, SPEED. TRACE e 
TROFF, 

Se siete programmatori in A55EMBLY, 
potete usare comandi come MEMORY, 
MONITOR. NUMBER e 
Per controllare METABASI C stesso dì- 
sponete di DEFAULT, HELP, INT e 
QUIT. 

1 comandi per la gestione del disk drive 
comprendono BSAVE, CAT. DLIST, 
ERR, MERCE. READ. RESA VE, 
SCRATCH, SEND e START. 

Infine, esiste LLJST, se avete una stam- 
pante e TERMINAL, se avete un mo- 
dem. 

I comandi di METABASIC 

Ecco un elenco alfabetico dei nuovi co- 
mandi e le istruzioni su come usarli, 
comprendenti degli esempi. 1 comandi 
di METABASIC e le stringhe sono stam- 
pali In nero, mentre i numeri lo sono 
In corsivo. Tutto ciò che è racchiuso tra 
parentesi è opzionale. 

Se qualcosa è descritto come comando 
per disk drive, non funzionerà se non 
avete collegato un disk drive. Inoltre, 
alcuni degli aiuti di programmazione 
per L/M (linguaggio macchinai possono 
essere anche utili in BASIC, e vicever- 
sa. 


AUTO - Programmazione BASIC 
Sintassi: AUTO inizio, incremento 

AUTO può eliminare un'ope razione 
molto noiosa quando si scrive un pro- 
gramma. 

Genera automaticamente I numeri dì li- 
nea del programma, partendo dal nu- 
mero dato come Inizio ed incrementan- 
dolo con il numero dato come incremen- 
to. Separate i due numeri con una virgo- 
la. Dopo aver premuto RETURN alla 
fine di una linea il successivo numero di 
linea verrà automaticamente generato 
dal computer. Il numero di linea corren- 
te può essere modificato con L'uso del 
tasto INST/DEL e sostituito da un alrio 
numero. Premere R UN /STOP per usci- 
re dal modo AUTO. 

Esempio: 

AUTO tH,ll parte da 100 e conti- 
nua con 110, 120, 130, tee. 


BSAVE - Comando per disk drive (ve- 
di anche RESA VE) 

Sintassi: BSAVE m iom fH*”, ind 1 

iniziale, ind. finole+1 

BSAVE (Blnary SAVE) salva un'area di 
memoria su disco, dall'Indirizzo Iniziale 
all 'indi rizzo finale. Inserite II nome del 
file h-a le virgolette, ed usate virgole per 


separare nome, indirizzo iniziale ed indi- 
rizzo finale. E molto importante aggiun- 
gere 1 al valore dell'indirizzo più alto 
che volete salvare. 

Potete usare questo comando per crea- 
re copie di programmi in linguaggio 
macchina, sempre che ne conosciate gli 
Indirizzi Iniziale e finale (vedi anche, a 
questo proposito, la rubrica “Read 8t 
Wrlte" di questo numero,.,), BSAVE 
può essere usato anche per salvare por- 
zioni di memoria di schermo, set di ca- 
ratteri rideflnitl o schermate in alta riso- 
luzione, 

I numeri devono essere In decimale: se 
desiderate tradurre del valori da esade- 
clmale in decimale* vedere il comando 
NUMBER. 

Dopo aver usato BSAVE si può ricarica- 
re il file con LOAD“nome fileni. 
Esempio: 

BS A VE M MET ABAS1C ", 36864, 

40961 per creare su disco una copia 
di METABASIC stesso. 

Salvando 100 byte oltre la fine effettiva 
del programma, salvate anche le defini- 
zioni (se precedentemente inserite) dei 
comandi DEFAULT e KEY (vedi più 
avanti}. La prossima volta che cariche- 
rete il METABASIC che avete “Bsal vo- 
to" digitate INT e DEFAULT per riotte- 
nerle. 


CAT - Comando per disk drive (vedi 
anche DLIST, READ) 

Sintassi: CAT 

Ogni volta che desiderate leggere l'Inte- 
ra directory del disco inserito nel drive 
digitate questo comando. Il programma 
BASIC correntemente in memoria non 
verrà cancellato. Per leggere solo speci- 
fiche parti della directory vedi DLIST. 

CHANGE - Programmazione BASIC 
(vedi anche FINO, VCHANGE} 


Sintassi: CHANGE @ VECCHIO @ 

NUOVO @ (inizio. fine) 

Oppure: CHANGE @ "VECCHIO” 

@ "NUOVO” @ (inizio, fine) 

CHANGE cerca nel programma In me- 
moria la strìnga definita in “VECCHIO" 
e la sostituisce con quella definita In 
“NUOVO". Le stringhe possono essere 
lunghe fino a 30 caratteri, e devono es- 
sere racchiuse tra due Tutte le 

linee In cui vengono operate le sostitu- 
zioni sono listate sullo schermo, 

N primo tipo di sintassi sostituirà Istru- 
zioni BASIC e nomi di variabili. Il secon- 
do tipo di sintassi deve essere usato per 
sostituire le stringhe. 1 valori “inizio" e 
“fine" indicano 1 numeri di linea da cui 
deve Iniziare e finire la sostituzione; se 
omessi, questa viene effettuata su tutto 
il programma. Esempio: CHANGE @ 
X @ QQ @ ,1,200 sostituisce al no- 
me di variabile X il nome QQ, in tutte 
Le Linee tra ì e 200. Le rimanenti linee 
non vengono modificate. 

Per cambiare la stringa “PIPPO" in 


“PLUTO", su tutto 11 programma, si usa 
ad esemplo: 

CHANGE @ “PIPPO" @ "FLU- 
TO" @ 


DEFAULT - Comando di METABA- 
SIC (vedi anche INT, QUIT) 

Sintassi: DEFAULT bordo, schermo, 
lesto. # periferica 

Quando si preme RUN/STOP + RE- 
STORE, lo schermo ritorna al colori di 
defauit, consistenti in caratteri azzurri 
su schermo blu con bordo azzurro, Io 
vogliate o no. Inoltre, molti comandi co- 
me LOAD e SAVE assumono il registra- 
tore a cassette come numero di periferi- 
ca di defauit 1, Il comando DEFÀULT 
permette di modificare questi valori in 
altri che più vi aggradano. 

Se usate abitualmente 11 disk drive, po- 
tete cambiare il numero di periferica di 
defauit da 1 In 8. Se desiderate usare 
più spesso Li vostro secondo drive, pote- 
te usare come numero di periferica di 
defauit il 9, Se II vostro C64 è collegato 
a un televisore In bianco e nero, può 
risultare utile modificare La combinazio- 
ne di colori fondo /testo su valori più 
leggibili. 

Nota: non è possibile usare alcuno dei 
nuovi comandi per li disk drive una vol- 
ta posto a un valore diverso da I il 
numero di periferica di defauit. Per di- 
sabilitare DEFAULT, e ritornare alle 
condizioni normali, usate il comando 
MONITOR descritto più avanti. Esem- 
plo: 

DE FAULT 1,1 .0,8 regola 11 colore 
dello schermo e del bordo sul bianco, i) 
colore del testo sul nero ed il numero 
di periferica di defauit su $. Se premete 
RLJM/STOP+RESTORE, vedrete carat- 
teri neri su uno sfondo bianco, e potrete 
usare, per caricare e salvare su disco, le 
istruzioni LOAD M nome file" e SA VE" no- 
me file" (senza doò dover aggiungere il 


DELETE - Programmazione BASIC 
Sintassi: DELETE inizio- fine 

DELETE cancella dalla memoria un cer- 
to numero di linee del vostro program- 
ma. 

Separate II numero della prima linea da 
cancellare (Inizio) dall'ultimo (/Ine) con II 
segno meno {-). Esempio: 
DELETE200 250 cancella tutte le li- 
nee tra 200 e 250, estremi compresi 

DLIST - Comando per disk drive (vedi 
anche CAT, READ) 


Sintassi: DLIST H no«* file" 

Questo comando lista sullo schermo un 
programma BASIC contenuto in un di- 
sco senza disturbare ciò che è attualmen- 
te contenuto in memoria. Il nome del 
programma deve essere racchiuso tra 
virgolette. DLIST vi permette di control- 
lare Il listato di un programma prima di 
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usare, ad esempio, MERGE o 
SCRATCH. 

Permette LnoJtre dì leggere porzioni della 
directory. DLl$T“$:A*" visualizzerà sul' 
lo schermo il nome di tutti i file nella 
directory 11 cui nome Inizia con la lettera 
A. Esemplo: 

DLIST H MAGIC HAND" lista sullo 
schermo lì programmo "Magic Hand" re* 
gtitrato su disco, senza cancellare il prò 
gramma BASIC attualmente residente 
in memoria. 


DUMP - Programmazione BASIC 
Sintassi: DUMP 

Potete usare questo comando per esami' 
nare Li contenuto dì tutte le variabli usate 
da un programma, esclusi I vettori e le 
matrid. Date il RUN al programma, 
quindi premete RUN /STOP e digitate 
DUMP. Per riprendere l'esecuzione del 
programma usate CONT, 

ERR - Comando per disk drive 
Sintassi: EfiB 

ERR legge il canale d'enore del drive: 
usatelo quando la luce rossa del drive 
sta lampeggiando. 


HND - Programmazione BASIC (vedi 
anche CHANCE, VCHANGE) 

Sintassi: FINO @ STRINGA @ (.Ini- 
zio, fine) 

oppure: FINO @ "STRINGA" @ 

L iniziò jìne) 

Vi permette di trovare una parola, 
un'Istruzione BASIC, una variabile alTin- 
temo di un programma. Ogni linea con 
tenente la stringa specificata viene lista- 
ta sullo schermo. Se desiderate operare 
la ricerca solo su una parte del program- 
ma, specificate in “Inizio" e "fine" i nu- 
meri di linea da cui Iniziare e finire. Se 
non specificati, la ricerca avviene su tut- 
to Il programma. Se volete ricercare 
Istruzioni BASIC, variabili o numeri, usa 
te La prima sintassi. Il secondo tipo di 
sintassi deve essere usato se si ricercano 
stringhe o caratteri racchiusi tra virgolet- 
te. Esempio: 

FIND @ A= @ ricerca tutte le linee 
In cui viene definita la variabile A. 

HELP - Comando di MEI AB ASIC 
Sintassi: HELP 

Questo comando fornisce una lista com- 
pleta sullo schermo di tutti l comandi di 
METABAS1C. 

INT - Comando di M ET AB ASIC {vedi 
anche DEFAULT, QUJT) 

Sintassi; INT 

Alcune delle opzioni di METABASIC so- 
no gestite da interrupt, Se sì re inizi a lizza- 
no gli Interrupt (attraverso IL comando 


MONITOR), non funzioneranno più i ta 
sti funzione ed il comando SPEED. INT 
ripristina la gestione degli interrupt nelle 
condizioni standard di METABASIC. 


KEY - Programmazione BASIC (vedi 
anche INT) 

Sintassi: KEY # funzione “ comando o 

■tringa" 

Questo comando fornisce a METABA- 
SIC una grande flessibilità, permettendo 
di definire ciascuno degli otto tasti fun- 
zione con un differente comando o strìn- 
ga. 

comando, che può essere lungo fino a 
dieci caratteri, deve essere racchiuso da 
virgolette. Esistono inoltre due caratteri 
speciali: La freccia a sinistra funziona co- 
me un RETURN, per fare in modo che 
non dobbiate anche premere RETURN 
dopo la visualizzazione del comando as- 
sodato al tasto funzione. Inoltre, l'apo- 
strofo (SH1FT+7) vale come virgolette. 
Usando KEY, potete disporre di un gran 
numero di comandi con la semplice pres 
sione di un tasto (come avviene nei BA- 
SIC 3.5 del Cì 6- Plus/4), Se desiderate 
definire in modo permanente i tasti fun- 
zione ed I colori dello schermo e del te- 
sto, potete usare KEY e DEFAULT e 
quindi B5AVE"metabas:c'\ usando gli 
indirizzi Iniziale e finale dati a proposito 
del comando BSAVE. Le definizioni ver- 
ranno salvate insieme al programma. 

Se gli interrupt vengono accidentalmen- 
te modificati, dovete usare 11 comando 
INT per riabilitare il comando KEY. 
Esempio: 

KEYI.ICLR {LISTIMI" pulisce 
lo schermo e lista U programma a partire 
dalla Linea 100 ogni volta che premete 
FI (la freccia a sinistra ìndica che il RE- 
TURN viene dato automaticamente). 
KEY7,"DATA" può essere utile con 
la numerazione automatica (vedi 
AUTO), se si sta scrivendo un program- 
ma con molte linee DATA. Dopo aver 
Inserito una linea premete RETURN e 
verrà visualizzato ìl numero di linea sue 
cessi vo. Premete quindi F? ed apparirà 
automaticamente Ja parola DATA. 
KEV2,"VEHIFY' # ’4-" definisce F2 in 
modo che stampi VER1FY*** più un RE- 
TURN (si noti che gli apostrofi sono stati 
cambiati in virgolette). Se avete usato 
DEFAULT per cambiare 11 numero di 
periferica dì default in 8, la pressione di 
F2 provocherà la verifica automatica del 
programma salvato piò recentemente 
sul disco. 


LLIST - Comando per la stampante 

Sintassi: LLIST inizio -fine 

Questo comando lista un programma, 
ma 11 Listato viene fatto sulla stampante 
invece che sullo schermo. 1 numeri di 
linea “inìzio" e “fine" sono opzionali. La 
sintassi di LLIST è Identica a quella di 
UST, Esemplo; 

LLIST IR- 2# lista su stampante le li- 


nee di programma tra 10 e 20, estremi 
compresi. 


MEMORY - Programmazione L/M {ve- 
di anche @) 

Sintassi: MEMORYind, inizio/eflraf fi 
naie) 

È possibile esaminare, con questo co- 
mando, qualsiasi parte della memoria. 
Usate numeri decimali (non esadeelma- 
lì?) per gli indirizzi iniziale e finale, 1 valori 
contenuti in memoria vengano visualiz- 
zati, sei byte per linea, in decimale, 
Inoltre, f equivalente in caratteri ASCI) 
viene visualizzato In campo Inverso nella 
parte destra dello schermo. Questo co- 
mando ha un effetto molto slmile al co- 
mando M di SU PER MONITOR, con la 
differenza che MEMORY lavora In deci- 
male, Se non esiste un corrispondente 
carattere ASCII, viene visualizzato un 
punto 

Se sì omette l'Indirizzo finale, ad esem- 
plo con MEMORY43, verrà visualizza- 
to Il contenuto di due byte (43 e 44). Gò 
rende facile leggere ìl contenuto dei pun- 
tatori a due byte. Per modificare il conte- 
nuto della memoria si può usare 11 co- 
mando @ , come descritto più avanti. 
Esempio: 

MEMORY4 1374 41474 visualizza 
alcuni del primi messaggi d'errore {si noti 
che il valore ASCII dell' ultimo carattere 
è sempre sommato a 128), Oppure, cari- 
cate un programma BASIC ed usate: 
MEMORY2048-2 148 per vedere co- 
me quest'ultimo à immagazzinato in me- 
moria. 


MERGE - Comando per disk drive 
Sintassi: NERGE h *ohm HU" 

MERGE legge un programma da disco* 
lista ogni sua linea sullo schermo e la 
aggiunge al programma attualmente In 
memoria. Se i due programmi possiedo- 
no numeri dì lìnea comuni, ìl program- 
ma su disco ha la precedenza. Poniamo 
che entrambi l programmi posseggano 
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la linea 250; la linea 250 del program' 
ma su disco rimpiazzerà la lìnea 250 del 

P rogramma in memoria. 

rima di usare questo comando può es- 
sere utile usare DLI5T, per assicurarsi 
di operare II MERGE del programma 
corretto. Se ci sono conflitti ne! numeri 
di linea, si può usare RENUM (vedi più 
avanti) per ri numerare uno dei due pro- 
grammi. Se desiderate fare il MERGE 
dì una sola parte di programma, usate 
DELETE per cancellare la parte che 
non interessa. 


MONITOR - Programmazione L/M 

Sintassi: MONITOR 

Se avete in memoria un monitor in lin- 
guaggio macchina (ad esempio il SU- 
PERMON1TOR}, potete entrarvi con 
questo comando (ammesso che esso 
venga abilitato tramite un BRKJ. Per 
usare METABAS1C con un monitor do- 
vete caricare METABASIC, digitare 
NEW e dare la SYS36864. Quindi cari- 
care il monitor, digitare NEW e dare la 
SYS di attivazione del monitor {49152 
per 11 SUPERMONITOR), che iniziali*- 
zeri 11 vettore BKR T facendo In modo 
che punti al monitor. 

MONITOR serve anche ad altre opera- 
zioni; riporta 1 colori dì testo, bordo e 
schermo ai valori di default (blu ed az- 
zurro) e riporta allo standard Tìnte:- 
rupt, disabilitando quindi le definizioni 
del tasti funzione ed 11 comando SPEED. 
Essi si possono comunque ripristinare 
con 11 comando 1NT. 


NUMBER - Programmazione L/M 

Sintassi; NUMBER$esodec imo/e 

oppure: NU MB ER de cima le 

NUMBER permette di convertire nume- 
ri da base decimale in esadedmale, e 
viceversa. 1 numeri «sadecimab devono 
essere preceduti da! segno $. Inoltre, Il 



numero viene convertito nel formato 
byte basso/byte alto (in decimale) e nel 
numero binario equivalente (contrasse- 
gnato dal segno %), Esemplo: 

NUMBERS100 

256 

0 1 

% 100000000 

NUMBER34 

$22 

34 0 

%X00010 


QU1T - Comando di METABASIC 
Sintassi: QUIT 

Reiniziallzza tutti i vettori e disabilita 
tutti i comandi di METABASIC. Non 
ripristina tuttavia il puntatore di fine 
memoria, fasciando METABASIC anco- 
ra protetto dal BASIC. Si può riattivare 
METABASIC con SYS36864, oppure 
con SYS9-4Q96, 


READ - Comando per disk drive (vedi 
anche CAT, DLIST) 

Sintassi: READ"moh* file Mq" 

READ permette di esaminare il conte- 
nuto di file sequenziali su disco. 11 conte- 
nuto del file viene visualizzato sullo 
schermo senza alterare II contenuto del- 
la memoria. Nel raro caso in cui vorre- 
ste usare il comando BASIC READ {per 
leggere Istruzioni DATA} In modo diret- 
to dovrete farlo precedere dalduepun- 
tL 


RENUM - Programmazione BASIC 

Sintassi: RENUMi infzioJ (. incremento) 

L'intero programma BASIC in memoria 
viene rinumerato, partendo dal numero 
di Linea eventualmente specificato In 
H inizio ", con incremento eventualmente 
specificato in “incremento". Se si omet- 
tono questi valori, la rinumerazione par- 
te dalla linea 10 con incrementi di 10. 
Questo comando rinumera anche 1 GO- 
TO, GOSUB, ON-GOTO, ON-GOSUB, 
IF-THEN, ecc. 

Un cenno va fatto al GO TO (con uno 
spazio tra GO TO}, che non viene rinu- 
merato. Usate F1ND per vedere se esi- 
ste qualche GO TO nel vostro program- 
ma, e trasformatelo in GOTO prima di 
usare RENUM. Esempio: 

RENUM 100,20 rinumera il program- 
ma a partire da 100 con incrementi di 
20 . 


RESAVE - Comando per disk drive 

Sintassi: RESAVE M no»# fll«" 

È un “Save con replace” II quale risolve 
tutti i problemi che a volte si Incontrano 
con il solito comando SAVE U @:nome 
file”. Quest’ultimo, infatti, prima salva 


il nuovo file e poi cancella il precedente, 
in modo che — se non vi è spazio suffi- 
ciente sul disco — si possono avere dei 
problemi. Il classico “Save con replace” 
è a volte inaffidabile e può provocare 
la perdita di entrambi i file e, anche se 
alcuni esperti non sono d "accordo su 
questa affermazione, è quindi da evita- 
re il più possìbile. 

RESA VE, al contrarlo, cancella 11 vec- 
chio file primo di salvare II nuovo, ed è 
quindi scevro da tutti I rischi Insiti nel 
SAVE“@:nome file": può essere usato 
con la massima tranquillità. 


SCRATCH - Comando per disk drive 

Sintassi: SCRATCH M B<m# file" 

SCRATCH esegue la stessa funzione 
della solita OPEN 1 5,8, 1 5:PRINT # 
15, "S:nome fìle":CLOSE15 t con un 
sìngolo comando. Cancella quindi un fi- 
le dal disco. Se avete appena inserito 
un nuovo disco nel drive, non è una 
cattiva idea inìzializzario (vedi SEND) 
prima dì cancellare un file. Potete usare 
l'asterisco per cancellare più di un pro- 
grammar SCRATCH “A** cancellerà 
tutti I file II cui nome inizia per A. Esem- 
plo: 

SCRATCH " MAGIC HARD” canee! 
la dal disco il file chiomato “Magic 
Hand". 


SEND - Comando per disk drive 

Sintassi: SEND H coMMdo** 

È un modo molto conveniente per Invia- 
re comandi al drive attraverso il canale 
15. SEND*T* Inlzlallzza il drive, 
SEND“V" esegue una valìdate, 

SE ND“Rrn novo = vecchio* cambia 
Il nome ad un file e così via. Per maggio- 
ri dettagli fare riferimento al manuale 
del drive od alla serie di articoli “ Iniziare 
con un sistema a dischi" da noi prece- 
dentemente pubblicata. 


SPEED - Programmazione BASIC 

Sintassi: SPEEDnumero 

SPEED seguito da un numero tra 0 e 
255 modifica la velocità di stampo. Più 
alto è il numero, più bassa è la velocità. 
Provate a digitare SPEED255 e quin- 
di listate un programma. Potete ritorna- 
re In condizioni normali con 
SPEEDO. 

Se questo comando non funziona, usate 
prima INT per ripristinare correttamen- 
te gli internet, SPEED è molto utile 
anche nell'uso del comando TRACE 
(vedi piu avanti}. 

START - Comando per disk drive 
Sintassi: START"mom# HI#* 

Se vi siete dimenticati l'Indirizzo iniziale 
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naturalmente 


I tascabili Jackson sono uno 
stai manto prezioso per obi lavora 
con II computer. 

SINCLAIR SPECTRUM rad. 01 7H 
VIC20 rad. 006H 
COMMODORE 64 rad. 0O2H 
PC IBM rad iti BH 
APPLE lk rad. 003H 
SHARP M2S0A rad. 014H 
LA PROGRAMMAZIONE rad. 004H 
WORD STAR coi. DDSH 
UNIX rad. DO&H 
LOGO rad. mn 
MS-DOS rad. 61W 
PROGRAMMI EH STATISTICA rad. 
01 5H 

CPU rad. B11H 
PC'OOt rad. S1ZH 


OGNI TASCABILE COSTA L* 


BASIC rad. W7H 
ASSEMBLER ZBO «d, 01 BH 
ASSEMBLER 6S02 rad. 01SH 
COBOL rad. «UH 
FORTRAN 77 rad. OIOH 
PASCAL rad, 006H 



ritagliare (o fotocopiare t e spedali in buita chiusa a: 
EDITORIALE JACKSON - OMafo nt UtXl - Via RoMlIknl, 12 - 20124 
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di un programma in linguaggio macchi- 
na che avete su disco (cioè il numero 
da dare nella SYS di attivazione), que- 
sto comando lo visualizza. Esemplo: 
START * 4 MET ABASIC " provoca la 
visualizzazione sullo schermo del nume- 
ro 36864. 


TERMINAL - Comando per modem 

Sintassi: TERMINAL 

Se disponete di un modem Commodore 
e lo avete collegato al C64. Il comando 
TERMINAL trasforma 11 vostro compu- 
ter fn un 'terminale stupido" a 300 
baud che potete usare per comunicare 
con servizi di informazione che usano 
V ASCII standard. Non potete, con que- 
sto comando, modificare alcuno del pa- 
rametri di default (come 11 full duple*), 
né potete caricare in memoria o salvare 
via modem testi o programmi: potete 
semplicemente visualizzarli sul video. 
Per ritornare al BASIC premete il tasto 
£ (simbolo della Lira); non premete 
RUN/STOP+RESTORE, Una cautela: 
le locazioni di memoria da 52736 a 
53247 vengono usate come buffer, 
quindi qualunque programma che risie- 
de in quest'area verri so vrasc ritto. 


TRACE -Pr ogrammazlone BASIC (ve- 
di anche TROFF} 

Sintassi: TRACE seguito da RUN 

Se state cercando qualche errore In un 
programma BASIC, TRACE è molto 
utile. 

Man mano che una linea viene eseguita 
il suo numero viene visualizzato sullo 
schermo. Usate 5H1FT o CTRL per fer- 
mare temporaneamente V esecuzione 
del programma. SPEED controlla la ve- 
locità di esecuzione e TROFF disabilita 
Il TRACE. 


TROFF - Programmazione BASIC 

Sintassi: TROFF 

Disabilita la funzione TRACE. 


UNNEW - Programmazione BASIC 
Sintassi: UNNEW 

Se accidentalmente digitate NEW e per 
dete un programma, potrete ricuperar- 
lo digitando UNNEW. 


VCHANGE - Programmazione BASIC 
(vedi anche CHANCE, FINO) 

Sintassi: VCHANGE @ VECCHIO 

@ NUOVO @ (. inizio ne} 

oppure: VCHANGE @ “VECCHIO" 

@ "NUOVO" @ (Jnttiojir*) 

VCHANGE (Verify CHANCE) funziona 


come CHANCE, con l'eccezione che vi 
viene data possibilità di decidere, caso 
per caso, se effettuare o meno II cam- 
biamento. 

Ogni linea contenente La vecchia stringa 
viene visualizzata, con ogni occorrenza 
della stringa evidenziata da un cerchiet- 
to pieno. Se premete Y> il cambiamento 
viene effettuato. Se premete N, sì passa 
alla Linea successiva. 


@ - Programmazione L/M 

Sintassi: @ indArtiiiak. numero, nume- 
ro 

Funziona come una POKE, con la diffe- 
renza che permette di inserire una serie 
di numeri in locazioni dì memoria conse- 
cutive. Ad esempio, se volete portare 1 
colori di bordo e sfondo in bianco, po- 
trete usare @5S2M.1.1 .11 primo 1 
viene inserito in 53280, mentre 11 secon- 
do In 53281. Se aggiungete altri nume* 
ri, separati da virgole, verranno Immes- 
si nelle locazioni 53282, 53283 e così 
via... 

Questo comando può Inoltre essere uti- 
lizzato Insieme a MEMORY. Per prima 
cosa fate l'equivalente di una PEEK In 
una serie di locazioni di memoria con 
MEMORY, 

Quindi modificate il contenuto di queste 
locazioni, ponendo una @ all'Inizio di 
ogni linea di byte che volete modificare. 
Andate con U cursore sul numeri che 
volete modificare, modificateli e preme- 
te RETURN. 

Note per il caricaneato o la 
dlgituloiie di METABA9IC 

Se >1 dispone della cassetta allegata alla 
rivista, è sufficiente posizionarsi con 11 
nastro in corrispondenza dell'inizio del 
programma e digitare: 

LOAD“” f l,l 

(attenzione: non inserire spazi tra gli 
apici!). 

Il programma andrà quindi mandato in 
esecuzione, digitando: 

NEW 

5YS36864 

Ricordiamo che per conoscere il punto 
esatto di Inìzio dei vari programmi su 
cassetta & sufficiente inserire quest 'ulti- 
ma completamente riavvolta nel regi- 
stratore. azzerare il contanastro e digi- 
tare: 


LOAD"" 


Dal momento che sicuramente non esi- 
ste sulla cassetta alcun programma di 
nome “* w , il computer passerà in rasse- 
gna tutti 1 programmi incontrati, visua- 
lizzandone il nome con 11 messaggio: 

FOUNDXXXX 


Sarà quindi utile annotarsi su un foglio 
l nomi del programmi e la relativa posi* 
zlone del contanastro (sottrarre tre o 
quattro unità dal valore corrispondente 
all'apparizione del messaggio FOUND 

* 4 * 

Gli abbonati alla sola rivista dovranno 
invece usare il programa MLX (vedere 
nelle pagine verdi) per digitare 11 listato 
In linguaggio macchina. La procedura 
da seguire. In questo caso, é: 

1. Accendere U computer e digitare: 

POKE644, 1 44:SY55826G RETURN 

Caricare In memoria MLX (che sarà sta- 
to precedentemente digitato e salvato), 
e rispondere alle sue richieste circa gli 
Indirizzi inziale e finale con: 

indirizzo Iniziale: 36864 
Indirizzo finale: 40805 


Dopo avere digitato e salvato li pro- 
gramma tramite MLX si potranno segui- 
re per 11 caricamento le istruzioni date 
più sopra per i possessori di cassetta. 


Note ttcalcbs 

N programma usa gli ultimi 4 Kbyte del- 
la memoria BASIC e vi lascia quindi 
liberi per l normali programmi circa 35 
Kbyte di memoria. La prima cosa ese- 
guita da M ET AB ASIC è lo spostamento 
In basso del puntatore di fine memoria, 
per proteggere se stesso dalle variabili. 
Dopo la SYS di attivazione può sembra- 
re che non accada nulla di particolare: 
In realtà, META BASIC sta "lavorando" 
in sottofondo e vi trovate ad avere i 
nuovi 32 comandi prima descritti. 

M ate sempre NEW dopo aver carica - 
ETABA51C. Una caratteristica che 
funziona In modo automatico è La pausa 
nel LIST, Quando state listando un pro- 
gramma tenete premuti CTRL, SHIFT 
o il tasto Commodore per bloccare tem- 
poraneamente Il listlng. 

Se desiderate interrompere l'esecuzio- 
ne dei vari comandi come ad esempio 
RENUM, usate solo RUN/STOP, non 
RUN/STOP+RESTORE! 

I vari comandi funzionano solo In modo 
diretto: non é possibile inserirli nel vo- 
stri programmi. Al contrarlo del coman- 
di BASIC ordinari, non sono ammesse 
abbreviazioni, 

I programmatori In L/M devono tener 
presente che METABASIC occupa te 
locazioni da $9000 a $9FFF. Il segmen- 
to da 4 Kbyte a partire da $CO00 è 
quindi Interamente disponibile per altri 
programmi In L/M. 

Infine, assicuratevi di caricare META- 
BASIC primo dì qualunque altro pro- 
gramma, sla esso In BASIC od In L/M. 



Meta basic par C64 

36864 : 076, 194, 145, 000, 000, 000, 159 
36870 : 000, 000, 000, 000, 000, 000, 006 
36876 : 000, 000, 063, 000, 000, 000, 075 
36882 :1 99,008,000, 000, 000,066,035 
36888 :006,000,000,004,000,008,042 
36894 : 000, 000, 000, 000, 000,000,0 30 
36900 :000, 169,001 ,044,169,000,163 
36906 : 1 41 ,036,144,032,146,145,174 
36912 : 169,069, 141 ,040,003,169,127 

3691 8 : 145, 141 ,041 ,003,173,029,074 

3692 4 : 144, 133,1 83,134,187,1 32,205 
36930 :1 88,160,002,169,000,1 53,226 
36936 : 0 86, 002, 136, 01 6, 250, 169, 21 9 
36942 : 008,1 33,1 86,169,096,133,035 
36948 :1 85,032,108,144,144,021 ,206 
36954 : 169, 002, 032,1 95,255,169,144 
36960 : 01 5, 032, 1 95,2 55, 032, 231 , 088 
36966 : 255,1 62,005,108,000,003,123 
36972 : 032, 21 3,24 3,165,186,032,211 
36978 :1 80,255,165,185,032,1 50,057 
36984 : 255, 169, 152, 141 ,000,003,072 
36990 j 169, 144, 141 ,001 ,003,169,241 
36996 : 04 4, 141 , 002, 00 3, 169, 1 4 5, 124 
37002 : 1 41 ,003,003,032,165,255,225 
37008 : 032, 080,1 4 5,1 76,072,032,169 
37014 *.165,2 55,0 32,165,255,1 41 ,139 
37020 : 023, 144, 032, 16 5, 255, 01 3, 020 
37026 : 023,1 44,240,055,032,165,053 
37032 : 255, 133, 020, 141 ,023,144,116 
37038 : 032, 165, 255,1 33,021 ,141 ,153 
37044 :024, 144, 173, 036, 144, 208, 141 
37050 : 004 , 1 60, 001 ,208,002,160,209 
37056 *.255,200,032,165,2 55,153,228 
37062 : 000, 002,208,247,032,060,235 
37068 : 145, 032, 137, 145, 152, 024, 071 
37074 : 105, 005,1 68,173,036,144,073 
37080 : 240, 045,076, 162, 164,032, 167 
37086 ; 1 71 ,255,032,066,246,032,000 
37092 : 231 ,255,169,1 31 ,141 ,002,1 33 
37098 : 003, 169, 164, 141 ,003,003,205 
37104 : 169, 139, 141 ,000,003,169,093 
37110 : 227, 141 ,001 ,00 3,169,237,000 
371 16 s 1 41 ,040,003,169,246,141 ,224 
37122 : 041 ,003,076,055,1 58,032,1 1 1 
371 28 : 033, 159, 174, 0 23, 144, 173, 202 
37134 : 024, 144,032,205,1 89,169,009 
37140 : 000,1 33,095,169,002, 133,040 
371 46 : 096, 169, 000, 133, 073, 169, 154 
371 52 : 086,1 41 ,000, 002, 1 69, 002 , 1 76 
371 58 : 1 41 , 001 , 002, 076,237, 1 66 , 1 49 
371 64 : 173, 023, 144, 133, 020, 173, 198 
371 70 : 024, 14 4,1 33,021 ,032,019,167 
371 76 : 166, 076,201 ,166,072,165,134 
37182 : 203, 201 ,063,240,154,104,003 
371 88 : 096,072, 165,203,201 ,063,100 
371 94 j 240,145,104,076,237,246,098 
37200 :1 41 ,01 8,1 44,024,165,144,204 


37206 : 240, 045, 032, 033, 159,169,252 
37212 : 01 5,162,008,168,032,186,151 
3721 8 : 255, 169,000,032,1 89,255,230 
37224 : 032,1 92 f 255,162,01 5,032,024 
37230 :1 98,255,032,207,255,072,1 05 
37236 : 0 32, 21 0,255,104,201 ,013,163 
372 42 : 208, 244, 169,01 5,032,195,21 7 
37248 : 2 55, 032, 204, 2 55, 056, 173, 079 

372 54 : 01 8, 144,096, 160, 255, 200, 239 
37260 :1 85,000,002,208,250,096,113 
37266 ;032, 121 ,000,201 ,000,240,228 
37272 : 039, 032, 11 5, 000, 144, 008, 234 
37278 : 201 ,034,24 0,00 4,056,076,001 
37284 ; 1 81 , 1 45, 032 , 1 58 , 1 73 , 1 65, 250 
37290 :01 3,208,009,032,1 55,188,007 
37296 : 165, 100, 164, 101 ,024,096,058 
37302 : 032, 130, 183,1 41 ,02 9,144,073 
37308 : 166, 034, 164, 03 5, 056, 096, 227 
37314 : 120,1 69,2 35,1 41 ,004,003,098 
37320 : 1 69,1 45,1 41 , 005,003,1 69,064 

373 2 6 : 065, 1 41 ,020,003,1 69,1 47,239 
37332 : 1 41 ,021 ,003,032,062,1 48,107 
373 38 : 088,1 65,056,201 ,1 44,1 44,248 
373 44 : 007,1 6 9,1 4 4,1 33,056,032,253 
37 3 50 : 092, 1 66,0 76,055,158,162,171 
37356 :255, 232, 189, 000, 002, 201 ,091 

373 6 2 : 032, 240, 248,1 60,255,1 41 ,038 
37368 : 023, 144, 200, 192, 224, 176, 183 
37374 : 079, 21 7,081 ,146,208,024,241 
37380 :1 40, 02 4,1 44,142,025,144,1 1 1 
37386 : 232, 200,1 85,081 ,146,04 8,134 
37392 : 029, 221 ,000,002,240,244,240 
37398 1172,024,144,1 74,025,144,193 
37404 : 200,1 9 2,2 24,1 76,045,1 85,026 
37410 : 081 ,146,016,246,173,023,207 
37416 :1 44,200, 200,076,250, 145,031 
37422 :142,027,144,134,122,232,079 
37428 :1 89,000,002,240,004,201 ,176 

374 34 : 065,1 76, 01 7,200,1 85,081 ,014 
37440 : 146, 141 ,076,146,200,185,190 
37446 : 081 ,146,141 ,077,146,076,225 
37452 : 039, 159, 076, 124, 165, 065, 192 
374 58 : 085,0 84,207,021 ,152,066,1 85 
37464 : 083,06 5,086,1 97,039,159,205 
37470 : 067, 065, 2 12, 047, 147, 067, 187 
37476 : 072,065, 078, 071 ,197,21 2,027 
37482 :1 55,068,069,070,065,085,106 
37488 : 076,21 2,242, 147,068,069,1 58 
37494 j 076, 069, 084,1 97,182,148,106 
37500 : 068, 076,073,08 3,21 2,040,164 
37506 : 144, 068, 085, 077, 208, 087, 031 
37512 :1 51 ,069,082,210,056,148,084 
37518 : 070, 073, 078, 196, 200, 155, 146 
37524 : 072, 069, 076, 208, 2 38, 157,200 
37530 : 073, 078, 21 2, 194, 145, 075, 163 
37536 : 069, 2 17, 149, 147, 076, 076, 126 
37542 : 073, 083, 2 12, 144, 157, 077, 144 
37548 : 069, 077, 079, 082, 21 7,057,241 
37554 : 149,077,069,082,071 ,197,055 
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37560 :037, 144, 077, 079, 078, 073, 
37566 ;084, 079, 210, 004, 150, 078, 
37572 :085, 077, 066, 069, 210, 166, 
37578 :150, 081 ,085,073,212,001 , 
37584 :1 50,082,069,065,196,103, 
37590 :148, 082, 069, 078, 085, 205, 
37596 :000, 153, 082, 069, 083, 065, 
37602 :086, 197, 014, 150, 083, 067, 
37608 1082,065,084,067,200,005, 
37614 : 150,083,069,078,196,025, 
37620 :150, 083, 080, 069, 069, 196, 
37626 :229, 157, 083, 084, 065, 082, 
37632 :212, 106, 148, 084, 069, 082, 
37638 :077, 073, 078, 065, 204, 064, 
37644 :158, 084, 082, 065, 067, 197, 
37650 :174, 152, 084, 082, 079, 070, 
37656 ;1 98,243,152,085,078,078, 
37662 :069, 215, 155, 150, 086, 067, 
37668 :072, 065, 078, 071 ,197,188, 
37674 :155, 064, 160, 208, 147, 160, 
37680 :001 ,185,061 ,147,145,122, 
37686 :200, 192, 004, 208, 246, 076, 
37692 :040, 144, 034, 036, 000, 165, 
37698 :203, 205, 014, 144, 240, 074, 
37704 :141 ,014,144,201 ,003,208, 
37710 :004, 169, 007, 208, 008, 201 , 
37716 ;004,1 44,059,201 ,007,176, 
37722 :055, 056, 233, 004, 010, 01 0, 
37728 :010, 010, 01 0,174,141 ,002, 
37734 :240, 003, 024, 105, 016, 168, 
37740 :1 62,000,1 85,097,159,201 , 
37746 :095, 208, 002, 169, 013, 201 , 
37752 :039, 208, 008, 165, 21 2,073, 
37758 :001 ,133,212,169,034,201 , 
37764 :000, 240, 009, 157, 119, 002, 
37770 :232, 200, 224, 010, 208, 222, 
37776 :134, 198, 076, 049, 234, 032, 
37782 il46, 145, 136,1 52,048,047, 
37788 :201 ,008,176,043,010,010, 
37794 :010, 010, 024, 105, 097, 133, 
37800 :251 ,169,159,105,000,133, 
37806 :252, 032, 146, 145, 144, 023, 
37812 :173, 029, 144, 201 ,011 ,176, 
37818 :01 6,168,169,000,145,251 , 
37824 :136, 177, 034, 145, 251 ,136, 
37830 :01 6,249,076,055,158,162, 
37836 : 01 1,108,000,003,169,255, 
37842 :133, 251 ,032,166,145,176, 
37848 :242, 140, 234, 147,141 ,235, 
37854 :147, 032, 146, 145, 176, Oli , 
37860 :152, 230, 251 ,164,251 ,153, 
37866 :000, 000, 076, 223, 147, 108, 
37872 :002, 003, 120, 169, 095, 141 , 
37878 :024, 003, 169, 157, 141 ,025, 
37884 :003, 088, 169, 003, 133, 251 , 
37890 :032, 146, 145, 176, 010, 152, 
37896 :166, 251 ,157,019,144,198, 
37902 : 251 ,016,241 ,169,040,141 , 
37908 :050, 003, 169, 148, 141 ,051 , 
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3791 4 :003,169,048,1 41 ,04 8,003,1 82 
37920 1169,148,141 ,049,003,076,106 
37926 1055,158,174,019,144,134,210 
37932 1186,076,237,245,174,019,213 
37938 1144,134,186,076,165,244,231 
37944 1032,088,145,076,055,158,098 
37950 :169,073,141 ,038,003,169,143 
37956 1148,141 ,039,003,096,072,055 
37962 1138,072,152,072,173,141 ,054 
37968 1002,208,251 ,174,012,144,103 
37974 1232,160,001 ,136,208,253,052 
37980 1202,208,250,104,168,104,104 
37986 il 70,104,076,202,241 ,169,036 
37992 1001 ,044,169,000,141 ,011 ,214 
37998 1144,032,146,145,032,189,030 
38004 1255,169,002,162,008,160,104 
38010 i 002, 032,1 86,255,032,192,053 
38016 1255,144,003,076,090,144,072 
38022 1162,002,032,1 98,255,032,047 
38028 1165,255,032,080,145,176,225 
38034 i 024,1 74,01 1,144,208,010,205 
38040 1170,032,165,255,032,205,2*3 
38046 il 89,076,1 71 ,148,032,210,216 
38052 1255,032,060,145,076,139,103 
38058 1148,169,002,032,195,255,203 
38064 1032,204,255,076,055,1 58,1 86 
38070 1032,146,145,176,115,132,160 
38076 1253,133,254,032,049,149,034 
38082 1160,002,177,095,141 ,023,024 
38088 1144,200,177,095,141 ,024,21 3 
38094 1144,165,095,133,251 ,165,135 
38100 1096,133,252,032,146,145,248 
38106 1176,082,200,208,003,024,143 
38112 1105,001 ,032,049,149,056,104 
381 1 8 1165,101 ,229,253,165,100,21 9 
38124 1229,254,144,062,160,000,061 
38130 1140,000,002,165,095,145,021 
381 36 : 251 ,200,165,096,145,251 ,076 
38142 1173,023,144,133,020,173,1 52 
38148 1024,144,133,021 ,160,005,235 
38154 1173,002,003,133,251 ,173,233 
38160 1003,003,1 33,252,169,033,097 
38166 il 41 ,002,003,169,149,141 ,115 
38172 1003,003,076,162,164,165,089 
38178 :251,141 ,002,003,165,252,080 
38184 il 41 ,003,003,076,049,158,214 
381 90 :076,203,147,132,020,133,245 
38196 : 021 ,032,019,166,096,032,162 
38202 1146,145,132,251 ,133,252,093 
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38208 : 032, 146, 145, 132, 2 53, 1 33, 137 
3821 4 : 254, 032, 1 84, 1 49, 076, 1 1 6, 1 1 3 
38220 : 149, 0 32, 060, 145, 056, 165, 1 71 
38226 : 253, 229, 2 51 ,165,254,229,1 83 
38232 : 252, 176, 01 0,1 73, 028, 144, 103 
38238 : 201 ,001 ,208,003,076,055,126 
38244 : 158, 238, 028, 144, 1 73, 02 8, 101 
38250 : 144, 201 ,00 6,208,00 5,169,071 
38256 : 001 ,032,147,149,173,028,130 
38262 ; 144, 01 0,01 0,024, 10 5, 008, 163 
38268 : 1 33, 21 1 ,1 60,000,1 77,2 51 ,032 
3827 4 : 032, 2 10, 149, 169, 058, 0 32, 01 2 
38280 :21 0,255,230,251 ,208,002,012 
38286 : 230, 252, 076, 077,1 49,1 69,071 
38292 : 058, 032, 21 0,2 55, 169, 01 8,122 
38298 : 032,21 0,255,1 98,252,160,237 
38304 : 250,1 77,251 ,201 ,032,144,191 
38310 : 007, 201 ,1 27,1 76,003,076,244 
38316 :1 76,149,169,046,032,210,1 86 
38322 ; 255, 200, 20 8, 235, 230, 2 52, 022 
3832 8 : 032, 03 3, 159, 169, 032, 032, 129 
38334 : 21 0,2 55, 165, 252, 166,251 ,209 
38340 : 0 32, 205, 189, 169, 000, 141 ,164 

383 46 : 02 8, 144, 169, 062, 032, 21 0,079 
38352 :255,096,168,032,162,179,076 
38358 : 032, 221 , 1 89,1 60,255,200,247 
38364 il 85,000,001 ,208,250,1 40,236 
38370 :023, 1 44, 1 36, 1 36, 1 36, 1 85, 21 8 
38376 : 000, 001 ,201 , 049 , 1 44 , 00 7 , 1 22 
38382 : 201 , 058,1 76,003,076,247,231 
38388 :149, 169, 048, 032, 210, 255, 083 
38394 :200,204,023,144,208,231,236 
38400 1096,032,083,228,000,1 69,096 
38406 :000,141 ,01 7,144,1 33,1 80,109 
38412 1240,020,1 69,000,141 ,01 7,087 
3841 8 1144,169,001 ,1 33,1 80,208,085 

384 24 : 009,1 69,001 , 1 41 , 01 7, 1 44 , 249 
384 30 il 69, 000, 1 33, 1 80, 032, 1 46, 178 
38436 1145,172,029,144,169,000,183 
38442 il 53,00 3,002, 136,1 77,0 34,035 
38448 il 53,00 3,002,1 36,01 6,24 8,094 
384 54 il 73,01 7,144,208,011 ,1 60,255 
38460 i 002,1 85,084,151 ,1 53,000,123 
38466 i 002,1 36,01 6,247,169,01 5,1 39 
38472 1162,008,160,015,032,186,123 
38478 :255,032,137,145,152,174,205 
38484 1017,144,240,009,056,233,01 5 
38490 1003,162,003,160,002,208,116 
38496 i004,162, 000, 160,002,032,200 
38 502 il 89,255,032,1 92,255,144,145 
38508 1003,076,090, 144,1 69,01 5,093 
3851 4 : 032,1 95,2 55,165,1 80,240,157 
38520 1028,169,003,162,008,160,138 
38526 :003,032,1 86,255,173,029,036 
38532 :144,162,003,160,002,032,123 
38 538 il 89,2 55,169,043,166,045,237 
38544 il 64, 046, 032, 21 6, 2 55, 032,1 21 
38550 i 080 , 1 45,076,055,1 58,1 60, 056 
38 556 ; 001 ,152,145,043,032,051 ,068 


3 8562 il 65,076,049,1 58,032,146,020 
38568 il 4 5,1 76,050,1 32,2 51 ,1 33,031 
38574 1252,072,169,036,032,210,177 
38580 :255,104,032,192,150,152,041 
38586 i 032,1 92 , 1 50 , 0 76 , 240 , 1 50 , 002 
38592 1072,074,074,074,074,032,080 
38598 :207,150,104,041 ,015,032,235 
38604 : 207,1 50, 096,201 ,01 0,144,244 
38610 1003,024,105,007,024,105,222 
3861 6 :048,032,21 0,255,096,1 69,002 
3 8622 : 000,1 33,251 ,1 33,252,1 68,135 
38628 1200,177,122, 208, 071, 165, 147 
38634 :2S2,166,251 ,032,205,189,049 
38640 1032,033,1 59,169,000,1 66,031 
38646 i 251 ,032,205,1 89,1 69,032,100 
38652 i 032, 21 0,255,169,000,166,060 
38658 :252,032,205,189,032,033,233 
38664 1159,169,037,032,210,255,102 
38670 il 69,000,1 41 , 02 8,1 44,1 62,1 46 
38676 : 01 6,169,048,006,251 ,038,036 
38682 :252,144,005,1 69,049,238,11 5 
38688 :028,144,1 72,028,144,240,020 
38694 1003,032,21 0,255,202,208,1 80 
38700 1232,076,055,1 58,162,004,21 9 
38706 :006,251 ; 0 38 , 2 52 , 202 , 208 , 239 
3 871 2 : 249,032,074, 1 51 ,024,1 01 ,1 75 
3 871 8 : 251 ,1 33,251 , 1 65,252,1 05,1 95 
38724 :000,133,252,076,228,150,139 
38730 :056,233,048,201 ,01 0,144,254 
38736 1002,233,007,096,083,048,037 
38742 1058,032,088,1 59,234,165,054 
38748 :046,133,252,076,116,151 ,098 
38754 il 69,058,032,21 0,2 55,1 6 5,21 9 
38760 : 251 ,024,105,007,1 33,251 ,107 
38766 1165,252,105,000,133,252,249 
38772 : 1 60, 000, 056 , 1 65 , 2 51 ,229,209 
38778 :047,165,252,229,048,144,239 
38784 1005,169,000,076,049,168,083 
38790 :169,000,141 ,028,144,177,025 
38796 : 251 ,016,004,056,046,028,029 
38802 il44,041 ,127,032,210,255,187 
38808 i 200,1 77,251 ,016,004,056,088 
3 881 4 1046,028,144,041 ,127,240,01 6 
38820 1003,032,210,255,173,028,097 
38826 1144,208,024,032,004,152,222 
38832 :200,152, 024, 101, 251, 072, 208 
38838 1165,252,105,000,168,104,208 
38844 :032,162,1 87,032,010,152,251 
38850 : 076, 098,1 51 , 201 , 003, 208, 163 
38856 :026,169, 037, 032, 21 0,2 55,1 61 
38862 1032,004,152,200,1 77,251 ,254 
3 8868 : 0 72, 200,1 77,251 , 1 68,1 04,1 60 
38874 :032,145,179,032,010,152,000 
38880 :076, 098,1 51, 201, 001, 208,1 91 
38886 : 026, 169, 036, 032, 21 0,2 55, 1 90 
38892 1032,004,152,200,1 77,251 ,028 
38898 :072,200, 177, 251, 133, 034, 085 
38904 :200,177,251 ,133,035,104,124 
3891 0 :032,036,171 ,076,098,1 51 ,050 
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38916 : 169, 061 ,032,210,255,096,059 
38922 : 032, 2 21 ,1 89,072,152,170,078 
38928 : 104,032,0 30,1 71 ,096,032,225 
38934 : 146, 145, 140, 034, 144, 141 ,004 
38940 :035,144,032,146,145,140,158 
38946 1032,144,141 ,033,144,173,189 
36952 :034,144,056,237,032,144,175 
38958 il 41 ,034,144,173,035,1 44,205 
38964 :237,033,144,141,035,144,018 
38970 1173,034,144,133,020,1 73,223 
38976 :035,144,133,021 ,1 20,169,1 74 
38982 :093,141 , 002 ,003, 1 69, 1 52, 11 8 
38988 il 41 ,003,003,169,141 ,141 ,162 
38994 1020,003,169,152,141 ,021 ,076 
39000 1003,088,076,055,1 58,165,1 21 
39006 :020,024,109,032,144,133,044 
39012 :099,165,021 ,109,033,144,159 
3901 8 1133,098,162,1 44,056,0 32,219 
39024 i 073,1 88,032,221 ,1 89,162,209 
39030 i 000,1 89,001 ,001 ,240,006,043 
39036 1157,119,002,232,208,245,063 
39042 :169,032,157,119,002,232,073 
39048 :1 34,1 98,076,131 ,164,032,103 
39054 1225,255,208,025,120,169,120 
39060 il 31 ,141 ,002,003,169,164,246 
39066 i l 41 ,003,003,169,065,141 ,1 64 
39072 :020,003,169,147,141 ,021 ,149 
39078 1003,032,033,159,088,076,045 
39084 :065,147,169,195,141 ,008,129 
39090 :003,169,152,141 ,009,003,143 
39096 :169,000,141 ,030,144,141 ,041 
39102 : 031 ,144,076,055,1 58,165,051 
39108 : 0 58, 201 ,255,24 0,039,173,1 38 
3911 4 :030,144,197,057,208,009,079 
39120 : 173,031 ,144,197,0 58,208,251 
39126 :002,240,023,169,091 ,032,003 
39132 1210,255,166,057,142,030,056 
39138 :144,165,058,141 ,031 ,144,141 
39144 1032,201 ,1 89,169,093,032,180 
39150 ;210,255,076,228,167,169,063 
39156 1228,141,008,003,169,167,192 
39162 1141 ,009,003,076,055,158,1 80 
39168 :032,157,155,169,010,141 ,152 
391 74 :006,144,141 ,008,144,169,106 
391 80 :000,141,011,144,141,007,200 
39186 :144,141,009,144,032,146,122 
39192 :145,176,017,140,006,144,140 
39198 il 41 ,007,144,032,146,145,1 33 
39204 1176,006,140,008,144,141 ,139 
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39210 : 009, 144 ,160, 000, 177, 1 88, 208 
39216 il 41 ,023,14 4,200,177,188,1 53 
39222 : 01 3,023,1 44,240,0 58,200,220 
39228 1200,200,177,188,240,074,115 
39234 :201,044,208,005,173,011,196 
39240 1144,208,081 ,177,188,016,118 
3924 6 : 238, 201 ,137,240,073,201 ,144 
39252 i 141 ,240,069,201,167,208,086 
39258 ; 01 9,140,023,144,200,1 77,02 5 
39264 :188,201 ,032,240,249,172,154 
39270 :023,144,201 ,058,144,048,208 
39276 :176,207,169,000,141,011,044 
39282 :144,240,200,169,001 ,141 ,241 
39288 1028,144,169,255,133,100,1 81 
39294 1133,101 ,032,051 ,165,032,128 
39300 1198,154,032,146,155,076,1 25 
39306 :049,158,200,152,024,101 ,054 
39312 1188,133,188,165,1 89,105,088 
3931 8 t000,133,l 89,076,044,153,233 
39324 i 140,01 5,144,200,1 77,1 88,252 
39330 : 201 ,032,240,249,172,015,047 
39336 :1 44,201 ,058,176,004,201 ,184 
39342 1048,176,003,076,061 ,153,179 
3934 8 : 169, 001 ,141 ,011 ,144,200,078 
393 54 : 024, 152, 101 ,1 88,133,122,138 
39360 : 133, 186, 165, 189, 105, 000, 202 
39366 1133,123,133,187,140,023,169 
39372 : 144,032,073, 155,1 69,000,009 
39378 il 41 ,028,144,1 65,122,133,1 75 
39384 1146,165,123,133,147,032,194 
39390 :051 ,165,032,198,154,032,086 
39396 1084,155,024,101 ,186,133,143 
39402 1148,165,1 87,105,000,133,204 
39408 1149,169,004,141,029,144,108 
39414 1032,013,154,172,023,144,016 
39420 :162,255,232,1 89,000,001 ,067 
39426 :208,003,076,062,1 53,145,137 
39432 1188,200,076,254,153,032,143 
39438 1033,154,1 76,014,024,165,068 
39444 il 82,109,029,144,133,182,031 
39450 :165,183,105,000,133,183,027 
39456 1096,056,165,148,229,146,104 
39462 :141,024,144,165,149,229,122 
39468 1147,013,024,144,208,001 ,069 
39474 1096,144,066,032,1 84,154,214 
39480 : 165, 181 ,170,005,1 80,208,197 
39486 :001 ,096,024,138,101 ,147,057 
39492 il 41 ,099,154,165,146,141 ,146 
39498 1098,1 54,024,138,101 ,149,226 
39504 il 41 ,102,154,165,148,141 ,163 
39510 il 01 ,154,232,164,1 80,208,101 
39516 1004,240,013,160,255,1 85,181 
39522 1000,000,153,000,000,136,131 
39528 1192,255,208,245,206,099,029 
39534 1154,206,102,154,202,208,112 
39540 1234,024,096,032,1 84,1 54,072 
39546 1165,146,141 ,154,154,165,023 
39552 1147,141 ,155,154,165,148,014 
39558 il 41 ,157,154,165,149,141 ,017 



39564 :1 58 , 154 , 166,1 81 , 240 , 032,047 
39570 ; 169 , 000 , 14 1,0 1 0 , 144 , 160, 002 
39576 : 000,1 85 , 000 , 000,1 53 , 000,234 
39582 : 000 , 200 , 204 , 01 0 , 1 44 , 208, 156 
39588 : 244 , 238,1 55,1 54 , 238,1 58,071 
39594 : 1 54 , 224 , 000 , 240 , 007 , 202,22 9 
39600 ( 208 , 224 , 165 , 1 80 , 208 , 222,103 
39606 ( 056 , 096 , 056 , 165 , 182 , 229,198 
39612 ( 146 , 133 , 180 , 1 65 , 1 83 , 229,200 
3961 8 ( 147 , 133,1 81 , 096 , 173 , 006,162 
39624 ( 144 , 133 , 184 , 173 , 007 , 144,217 
39630 : 133 , 1 85 , 173 , 004 , 144 , 133,210 
39636 ( 253 , 173 , 005 , 144 , 133 , 254,150 
39642 ( 160 , 000 , 177 , 253 , 133 , 167,084 
39648 ( 200 , 177 , 253 , 1 33 , 168 , 005,136 
39654 ( 167 , 240 , 075 , 200 , 177 , 253,062 
39660 ( 056 , 229 , 101 , 141 , 013 , 144,152 
39666 ( 200 , 177 , 253 , 229 , 100 , 013,190 
39672 ( 01 3 , 144 , 208 , 01 8 , 173 , 028,064 
39678 ( 144 , 208 , 012 , 169 , 032 , 032,083 
39684 ( 210 , 255 , 166 , 184 , 165 , 185,145 
39690 ( 032 , 205 , 189 , 096 , 176 , 036,232 
39696 ( 1 73 , 028 , 144 , 240 , 01 5 , 1 52,000 
39702 ( 072 , 160 , 002 , 165 , 1 84 , 145,238 
39708 ( 253 , 200 , 165 , 185 , 145 , 253,205 
39714 ( 104 , 168 , 165,1 84 , 024,1 09,020 
39720 ( 008 , 144 , 133 , 1 84 , 165 , 1 85,091 
39726 ( 109 , 009 , 144 , 076 , 060 , 155,087 
39732 ( 169 , 255 , 1 33 , 1 84 , 133 , 1 85,087 
39738 ( 208 , 192 , 133 , 185 , 165 , 167,084 
39744 ( 133,2 53 , 165 , 168,1 33 , 254,1 46 
39750 ( 076 , 21 8 , 1 54 , 032 , 1 58 , 173,113 
39756 ( 032 , 1 55 , 188 , 165 , 100 , 164,112 
39762 ( 101 , 096 , 160 , 255 , 200 , 1 85,055 
39768 ( 000 , 001 , 208 , 250 , 152 , 096,027 
39774 ( 165 , 043 , 133 , 251 , 165 , 044,127 
39780 ( 133 , 252 , 160 , 000 , 1 77 , 251 ,049 
39786 ( 208 , 01 8 , 232 , 224 , 003 , 208,231 
39792 ;01 5 , 152 , 056 , 101 , 251 ,1 33,052 
39798 ( 045 , 165 , 252 , 1 05 , 000 , 133,050 
39804 ( 046 , 096 , 162 , 000 , 200 , 208,068 
39810 ( 229 , 230 , 252 , 208 , 225 , 162,1 56 
39816 ( 044 , 181 , 146 , 157 , 211 , 159,010 
39822 ( 202 , 016 , 248 , 096 , 162 , 044,142 
39828 ( 189 , 211 , 159 , 149 , 146 , 202,180 
39834 ( 016 , 248 , 096 , 032 , 135 , 155,068 
39840 (1 65,04 5 , 024 , 105 , 005 , 133,1 25 
3984 6 :1 82 , 165,04 6 , 105 , 000, 1 33,029 
39852 ( 183 , 165 , 043 , 1 33 , 188 , 1 41 ,001 
39858 ( 004 , 144 , 165 , 044 , 133 , 189,089 
39864 ( 141 , 005 , 144 , 096 , 169 , 000,227 
39870 ( 141 , 011 , 144 , 169 , 001 , 141 ,029 
39876 :01 3 , 144,20 8 , 020,1 69 , 001 ,239 
39882 ( 141 , 011 , 144 , 169 , 000 , 141 ,040 
39888 ( 013 , 144 , 240 , 008 , 169 , 000,014 
39894 ( 141 , 011 , 144 , 141 , 01 3 , 144,040 
39900 ( 032 , 124 , 165 , 032 , 026 , 157,244 
39906 ( 032 , 157 , 155 , 169,2 55,141 ,111 
39912 ( 008 , 144 , 141 , 009 , 144 , 169,079 



39918 ( 002 , 133 , 123 , 032 , 146 , 145,051 
39924 ( 176 , 026 , 132 , 020 , 133 , 021 ,240 
39930 ( 032 , 01 9 , 1 66 , 165 , 095 , 1 33,092 
39936 : 1 88 , 165 , 096 , 1 33 , 1 89 , 032,035 
39942 ( 146 , 145 , 176 , 006 , 140 , 008,115 
3994 8 si 44,141 , 009,1 44,1 60 , 000,098 
39954 ( 1 77 , 1 88 , 141 , 023 , 1 44 , 200,123 
39960 ( 1 77 , 1 88 , 013 , 023 , 144 , 240,041 
39966 ( 072 , 1 62 , 000 , 200 , 1 77 , 1 88,061 
39972 ( 1 33 , 020 , 237 , 008 , 144 , 200,010 
39978 ( 1 77 , 1 88 , 133 , 021 , 237 , 009,039 
39984 ( 144 , 144 , 002 , 176 , 050 , 200,252 
39990 ( 177 , 188 , 240 , 029 , 205 , 011 ,136 
39996 ( 001 , 208 , 246 , 1 40 , 023 , 144,054 
40002 ( 1 62 , 000 , 200 , 232 , 1 89 , 011 ,092 
40 0 08 : 001 ,201 , 064,2 40 , 035 , 209,054 
40014 ( 1 88 , 240 , 243 , 1 72 , 023 , 144,064 
40020 ( 076 , 053 , 156 , 200 , 152 , 024,233 
40026 : 101 , 1 88 , 1 33 , 1 88 , 1 65 , 1 89,030 
40032 : 105 , 000 , 133 , 1 89 , 076 , 016,1 03 
400 38 il 56 , 032,051 , 165 , 032 , 146,1 72 
40044 ( 155 , 076 , 049 , 158 , 140 , 024,198 
40050 ( 144 , 032 , 051 , 1 65 , 1 72 , 023 , 1 89 
40056 ( 144 , 136 , 192 , 004 , 176 , 001 ,005 
40062 ( 200 , 132 , 180 , 177 , 188 , 141 ,120 
40068 ( 003 , 144 , 174 , 01 3 , 144 , 240,082 
40074 : 004 , 1 69 , 1 13 , 145 , 188 , 032,021 
40080 : 01 9 , 166 , 169 , 159 , 141 , 000,030 
40086 ( 003 , 169,1 56,1 41 ,001 , 003,1 1 1 
40092 ( 076 , 201 , 166 , 169 , 139 , 141 ,024 
40098 ( 000 , 003 , 169 , 227 , 141 ,001 ,191 
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40104 

: 003 

,173 

,003 

,144 

,164 

,180 

,067 

401 1 0 

: 1 45 

,188 

,172 

,024 

,144 

,173 

,252 

40116 

s 01 1 

,144 

,240 

,003 

,076 

,054 

,196 

401 22 

; 1 56 

,174 

,013 

,144 

,240 

,022 

,167 

401 28 

: 1 65 

,197 

,197 

,203 

,240 

,252 

,166 

401 34 

: 032 

,060 

,145 

,165 

,203 

,201 

,236 

401 40 

: 025 

,240 

,007 

,201 

,039 

,208 

,156 

401 46 

: 243 

,076 

,054 

,156 

,152 

,024 

,147 

40152 

: 1 01 

,188 

,133 

,146 

,165 

,189 

,114 

401 58 

: 1 05 

,000 

,133 

,147 

,173 

,023 

,035 

40164 

: 1 44 

,024 

,109 

,029 

,144 

1 1 33 

,043 

401 70 

; 1 48 

,032 

,251 

,1 56 

,165 

,148 

,110 

40176 

: 024 

,1 01 

,1 88 

,133 

,148 

,032 

,098 

401 82 

: 25 Ì 

,156 

,076 

,002 

,157 

,165 

,029 

401 88 

1 1 89 

,105 

,000 

,133 

,149 

,096 

,156 

40194 

: 032 

,01 3 

,154 

,172 

,023 

,144 

,028 

40200 

i l 62 

,255 

,232 

,189 

,041 

,001 

,120 

40206 

: 20 T 

,064 

,208 

,003 

,076 

,054 

,108 

40212 

: 1 56 

,145 

,188 

,200 

,208 

,240 

,133 

4021 8 

: 1 60 

,000 

,200 

,185 

,000 

,00 2 

,061 

40224 

; 240 

,056 

,201 

,064 

,208 

,246 

,023 

40230 

: 1 62 

,255 

,232 

,200 

,185 

,000 

,048 

40236 

: 002 

,240 

,043 

,201 

,034 

,240 

,036 

40242 

: 24 6 

,157 

,011 

,001 

,201 

,064 

,21 8 

40248 

; 208 

,238 

,173 

,011 

,144 

,208 

,01 4 

40254 

: 023 

,162 

,255 

,232 

,200 

,185 

,095 

40260 

: 000 

, 002 

,240 

,01 8 

,201 

,034 

,051 

40266 

; 240 

,246 

,157 

,041 

,001 

,201 

, 1 92 

40272 

: 0 64 

,208 

,238 

,142 

, 029 

,144 

,137 

40278 

: 200 

,132 

,122 

,096 

,162 

,01 1 

,041 

40284 

; 1 08 

,000 

,003 

,120 

,072 

,138 

,021 

40290 

: 072 

,152 

,072 

,169 

,004 

,141 

,196 

40296 

lì 36 

,002 

,032 

,188 

,246 

,032 

,228 

40302 

: 225 

,255 

,240 

,003 

,076 

,114 

,255 

40308 

: 254 

,032 

,163 

,253 

,032 

,024 

,106 

4031 4 

: 229 

,173 

,021 

,144 

,141 

,033 

,095 

40320 

: 208 

,173 

,022 

,144 

,141 

,032 

,080 

40326 

; 208 

,173 

,020 

,144 

,141 

,134 

,186 

40332 

: 002 

,108 

,002 

,160 

,169 

,004 

,073 

40338 

: 1 62 

,004 

,160 

,004 

,032 

,186 

,182 

40344 

: 255 

,032 

,192 

,255 

,162 

,004 

,028 

40350 

: 032 

,201 

,255 

,160 

,255 

,200 

,237 

40356 

;ì 92 

,087 

,240 

,014 

,185 

,000 

,114 

40362 

: 002 

,201 

,045 

,208 

,244 

,169 

,015 

40368 

zi 71 

,153 

,000 

,002 

,208 

,237 

,179 

40374 

1 1 69 

,198 

,141 

,000 

,003 

,169 

,094 

40380 

: ì 57 

,141 

,001 

,003 

,032 

,115 

,125 

40386 

; 000 

,076 

,156 

,166 

,169 

,139 

,132 

40392 

; 1 41 

,000 

,003 

,169 

,227 

,141 

,113 

40398 

: 001 

,003 

,162 

,004 

,032 

,201 

,097 

40404 

; 255 

,169 

,01 3 

,032 

,210 

,255 

,122 

4041 0 

: 032 

,204 

,255 

,169 

,002 

,032 

,144 

4041 6 

; 1 95 

,255 

,076 

,055 

,158 

,032 

,227 

40422 

: 1 46 

,145 

,140 

,012 

,144 

,076 

,125 

40428 

; 0 5 5 

,158 

,169 

,000 

,133 

,251 

,234 

40434 

il 69 

,147 

,032 

,21 0 

,255 

,169 

,200 

404 40 

: 004 

,133 

,214 

,032 

,033 

,159 

,055 

40446 

; 1 60 

,255 

,200 

,192 

,219 

,144 

,144 

40452 

: 003 

,076 

,055 

,158 

,185 

,081 

,050 


404 58 : 1 46 , 048 , 006 , 032, 21 0 , 255,1 95 
40464 : 0 76, 0 00 , 158 , 073 , 12 6 , 032, 227 
404 70 : 21 0 , 255 , 1 65,2 51 , 073,001 ,209 
404 76 : 133,2 51 , 208 , 009 , 169 , 000,030 
404 B 2 : 1 33,21 1 , 032 , 033,1 59 , 208,042 
40488 : 004 , 169 , 020 , 133 , 21 1 , 200,009 
40494 : 200 , 208 , 207,0 32 , 094,1 55,1 74 
40 500 : 032 , 092 , 166,1 69 , 000,1 33,132 
40 506 : 198 , 162, 1 28 , 108 , 000 , 003, 145 
40 51 2 : 169 , 000 , 133 , 247 , 169, 20 6, 220 
40 51 8 il 33 , 248 , 169 , 000 , 133 , 249,2 34 
40524 : 1 69 , 207 , 1 33 , 250 , 032 , 231 ,074 
40530 : 255 , 169 , 001 , 162 , 032 , 160,093 
40536 : 1 59 , 032 , 189 , 2 55 , 169 , 002, 126 
40542 : 1 70 , 160 , 003 , 032 , 186 , 255, 132 
40548 i 032 , 19 2 , 255 , 032 , 197 , 158, 198 
40554 1032 , 204 , 255 , 032 , 228 , 255,068 
40560 : 201 , 000,24 0 , 031 , 201 , 092,109 
40 566 : 24 0 , 066 , 168, 1 20 , 162 , 054, 160 
40 572 il 34 , 001 ,1 85 , 000 , 162 , 162,000 
40578 i 055 , 1 34 , 001 , 088 , 072 , 162,1 30 
40584 : 002 , 032, 201 , 255 , 104 , 032,250 
40590 i 21 0 , 2 55 , 032 , 204 , 2 55 , 162, 2 36 
40 596 : 002 , 032 , 198 , 255 , 032 , 228,1 27 
40602 : 255,201 , 000 , 240 , 203 , 041 ,070 
40608 : 127 , 168,1 20,1 62 , 054,1 34,1 57 
4061 4 : 001 ,1 85 , 000,1 60 , 162 , 055,21 7 
40620 ; 134,001 , 08 8 , 072 , 032 , 204 , 1 91 
40626 : 2 55,1 04,03 2,21 0,2 55 , 076,086 
40632 il 06 , 158 , 032 , 204 , 255 , 1 69,084 
40638 : 002 , 032, 19 5,2 55 , 076 , 055,0 37 
4064 4 il 58 , 160 , 255,1 52 , 192,21 9,052 
40650 il 76 , 024 , 192,1 93,1 4 4 , 006,169 
40656 : 056 , 233, 12 8 , 076, 2 30 , 158,065 
40662 : 1 92 , 065 , 144 , 01 2 , 1 92 , 096,1 47 
4 06 68 il 76 , 006 , 024,1 05 , 032,0 76,127 
4 0674 : 2 30 , 158 , 169 , 000,1 53,00 0,168 
40680 : 1 62 , 1 36 , 192 , 255 , 208 , 21 7,1 22 
4 0686 il 52,1 92 , 128 , 176 , 024,1 92,0 78 
40692 : 096 , 1 44 , 006 , 056 , 233 , 032,043 
40698 1076 , 013 , 159 , 192 , 065 , 144,131 
40704 i 01 2 , 1 92 , 091 , 1 76 , 008 , 024,247 
40710 1105 , 128 , 076 , 013 , 159 , 169,144 
40716 : 000 , 153 , 000 , 1 60 , 1 36 , 192,141 
40722 1255 , 208 , 21 7 , 169 , 008 , 1 41 ,248 
40728 : 020 , 162 , 169 , 020, 1 41 , 008,032 
40734 il 60 , 096 , 006 , 169,01 3 , 032,250 
4074 0 : 21 0 , 255 , 096 , 032,1 46,1 4 5,1 52 
4074 6 : 032,1 89,2 55 , 032,1 4 6,1 4 5,073 
40752 : 1 32 , 251 , 1 33 , 252 , 032 , 1 46,226 
40758 : 1 45 , 169 , 002 , 162 , 008 , 1 68,1 96 
40764 : 032,1 86 , 255 , 032 , 192 , 255,244 
40770 : 032 , 080,1 45 , 176 , 009 , 169,1 65 
40776 : 251 ,1 66 , 101 , 164 , 100 , 032,1 1 8 
40782 : 21 6 , 2 55 , 169 , 002 , 032 , 195, 1 79 
40788 : 255 , 076 , 055,1 58 , 1 69 , 001 ,030 
40794 il 33,21 2,1 65 , 045,1 33 , 251 ,005 
40800 1096 , 072 , 01 3 , 01 3 , 013 , 255,046 
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NON FARTI SUPERARE DAL PROGRESSO 



Aggiornati con gli 
“Aggiornamenti” 

ENCICLOPEDIA , 
DI ELETTRONICA 
& INFORMATICA 

nuaoou SSTnUANAU DA RILEGARE 

Di DOS NUOVI E SPLÈNDIDI VOUDO 


PER TE, PER IL TUO LAVORO, PER I TUOI STUDI... 

1 Aggiornamenti 

le nuove conquiste dell'Elettronica di Base, 
delle Comunicazioni, deU’Eletlronica 
Digitale, dei Microprocessori, 
deirinformatica... 

2 II personal computer 

tutto quello che c’è da sapere sul Personal 
Computer: che cos’è e cosa fa; come fa 
e come si fa; i linguaggi di programmazione; 
le applicazioni... 


E.l. si aggiorna e ti aggiorna 


il 18 settembre 

ba£U sul tempo il progresso! 
Corri In edicola a comprare 
primo fascicolo. 


ANCORA UNA VOLTA 
“PRIMI SUL FUTURO” 






di li Crtetmib Grimal 


Prendete la ano in stacca a Mo- 
strata la vostra abititi In averta 
enfasi** osante else Iasione dal 
biliardo* Par dna •locatori» In 
varatane par UIC 21 la espanso a 
C44. 


L e regole di POOL sono molto sem- 
plici: il cerca dì far cadere In buca 
tutte le palle sul tavolo, tirando In modo 
appropriato la palla bianca. 

La versione per VIC 20 accetta i co- 
mandi sia da tastiera che da joystick {le 
differenze nella versione per C64 sono 
spiegate alla fine dei! Articolo), Usate \ì 
joystick (o 11 tasto F3) per ruotare la 
stecca in tomo alla palla da tirare. 

J] tiro viene effettuato premendo 11 pul- 
sante dì fuoco (oppure il tasto FI). 

Più a lungo si tiene premuto ti pulsante 
di fuoco {od il tasto FI), meno forte sarà 
ìì tiro nel momento in cui si rllascerà il 
pulsante stesso. Per un tiro forte pre< 
mete il pulsante di fuoco (o FI) e rlla» 
sciatelo immediatamente. 

Il vostro turno continua fino a che riusci- 
te a mandare le palle In buca, Se sba- 

r ia te o mandate in buca la palla bianca, 
turno passa all’avversario. Nel caso 
mandiate in buca la pallina bianca, essa 
potrà essere ri posizionata con II joystick 
(oppure 1 tasti F3 ed F5) In qualunque 
luogo al di sotto della linea che verrà 
visualizzata sullo schermo. Premete II 
pulsante di fuoco quando la palla si tro- 
va nella posizione desiderata. 

Le quindici palle vengono posizionate a 
caso sul tavolo dopo che l’ultima è finita 
in buca: potrete a questo punto sceglie- 
re se continuare il gioco {fino ad un limi- 
te stabilito tra voi ed 11 vostro avversa- 
rio), oppure iniziare una nuova parti- 
ta. 

Nota alla versloet par VIC 21 

La routine principale di gioco fa In mo- 
do che le palle sul tavolo da biliardo si 
muovano, rimbalzino ed entrino in colli- 
sione tra di loro. In questa routine il 
moto è simulato “pokando" Lt carattere 
che rappresenta la palla nella locazione 
di schermo successiva, a seconda della 



direzione del moto, e quindi “potando" 
uno spazio nella posizione precedente, 
cancellando quindi U carattere. La riso- 
luzione dello schermo del VIC 20 per- 
mette soltanto otto direzioni di movi- 
mento. 

Il programma esegue delle PEEK nelle 
locazioni antecedenti la posizione cor- 
rente della palla, per rilevare eventuali 
collisioni. Quando viene raggiunto il 
bordo del tavolo U verso del moto viene 
invertito. Se vengono rilevate le buche 
(CHR$ (102)), viene chiamata la su- 
broutlne di punteggio. 

Il rallentamento della palla durante il 
tuo moto è ottenuto con dell di ritardo 


progressivamente più lunghi tra una 
POKE e l’altra nelle locazioni della me- 
moria di schermo. Effetti sonori sottoli- 
neano le collisioni e l’incremento del 
punteggio. 

ual momento che II programma occupa 
quasi totalmente la memoria disponibile 
nel VIC 20, si raccomanda a chi non 
disponesse della cassetta allegata alla 
rivista di non inserire nel listato spazi 
superflui od Istruzioni REM aggiuntive. 

Nata alla varatone par C44 

Il programma per C64 è Interamente In 
linguaggio macchina ed utilizza l’alta ri- 
soluzione grafica. Richiede Inoltre Futl- 
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lizzo di uno o due joystick (a seconda 
del numero di giocatori). 

Se si dispone della cassetta allegata alla 
rivista, è sufficiente posizionarsi con il 
nastro in corrispondenza delTintóo dei 
programma e digitare: 

LOAD“M,l 

(attenzione: non inserire spazi tra gli 
apici!), 

][ programma andrà quindi mandato in 
esecuzione, digitando: 

SYS 49152 

Ricordiamo che per conoscere il punto 
esatto di inizio dei vari programmi su 
cassetta è sufficiente inserire quest 'ulti* 
ma, completamente riavvolta, nel regi- 
stratore, azzerare il conta nastro e digi- 
tare: 

LOAD u ‘" 

Dal momento che sicuramente non esi- 
ste sulla cassetta alcun programma di 
nome **"*, il computer passerà in rasse- 
gna tutti I programmi incontrati, visua- 
lizzandone il nome con il messaggio: 

FOUND XXXX 

Sarà quindi utile annotarsi su un foglio 
I nomi del programmi e la relativa posi- 
zione del contanastro (sottrarre tre o 


quattro unità dal valore corrispondente 
all’apparizione del messaggio FOUND 

Gli abbonati alla sola rivista dovranno 
invece usare il programma MLX (vede- 
re nelle pagine verdi) per digitare il lista- 
to in linguaggio macchina. La procedu- 
ra da seguire, in questo caso, è 
caricare in memoria MLX (che sarà sta- 
to precedentemente digitato e salvato) 
e rispondere alle sue richieste circa gli 
Indirizzi iniziale e finale con: 

Indirizzo Iniziale: 49152 

indirizzo finale: 52905 

Dopo avere digitato e salvato II pro- 
gramma, tramite MLX, si protranno se 
gulre per il caricamento le istruzioni da- 
te più sopra per i possessori di cassetta. 
Mandando In esecuzione il programma, 
comparirà il titolo iniziale, con una me- 
lodia rag time in sottofondo. Verrà quin- 
di richiesto di scegliere tra uno o due 
giocatori, quindi apparirà il tavolo da 
biglia rdo. Nella versione per C64 et so- 
no solo sei palle, oltre la palla bianca: 
ciò per la nota limitazione sul massimo 
numero di SFRJTE visualizzabili con- 
temporaneamente sullo schermo (ot- 
to). 

Con II joystick posizionate la palla bian- 
ca al di sotto della linea visualizzata e, 
quando siete pronti per tirare, premete 
il pulsante di fuoco. Apparirà quindi 
una croce, che può essere spostata con 
il joystick nella direzione in cui desidera- 
te tirare. Al contrario della versione per 


VIC 20, che permette soltanto otto dire- 
zioni, potete qui scegliere una direzione 
qualsiasi. Premendo il pulsante di fuoco 
Inizierà il movimento della palla nella 
direzione voluta. La distanza tra palla 
e croce misura la forza del tiro: più 
grande è questa distanza, più forte sarà 
Il tiro. Esiste comunque un limite su que- 
sta distanza, pari a circa due terzi della 
lunghezza del tavolo. Nel gioco singolo 
l'obiettivo è quello di mandare in buca 
tutte le palle con il minor numero possi- 
bile di tiri; il computer stesso offrirà una 
valutazione della vostra abilità. 

Nel gioco contro un avversario, quando 
si manda in buca una palla questa viene 
visualizzata nella propria metà di scher- 
mo. Si perde un tiro quando si getta In 
buca la palla che si è lanciata, o quando 
quest 'ultima non tocca nulla prima di 
fermarsi: il turno viene perduto, una 
delle palle precedentemente guadagna- 
te e visualizzate nella propria metà di 
schermo viene rimessa in gioco e la pal- 
la tirata viene riportata nella posizione 
di partenza. Toccherà a questo punto 
all'avversario di posizionare la palla nel 
punto desiderato ed effettuare II pro- 
prio tiro. 

Il programma non segue completamen- 
te le leggi della fisica nel moto delle 
palle, pur offrendo una simulazione 
molto realistica. Gli SPR1TE sono mossi 
pixel per pixel, ma il movimento è cal- 
colato In duecentocinquant asei esimi di 
pixel, per avere la massima accuratezza 
nei calcoli delle posizioni. 


Pool varalo** par VIC 20 


100 POKE36S79 , 1 0: PRINT" (CLR) {YELl* 




ttem 

1 54 

T10 

FRI NT "NOME PRIMO GIOCATORE" 

;rem 

1 B2 

1 20 

PRINT: INPLJTN5 

:rem 

92 

1 30 

A$»LEFT$ ( N$ * 7) 

: r em 

171 

140 

PRINT: PRINT: PRINT n NOME SECONDO GIOCAT 


ORE" 

:rem 

203 

1 50 

PRINT: INPUTNS 

irem 

95 

160 

B$ »LEFT$ ( N$ * 7 ) 

:rem 

175 

170 

PRINT" {CLR) H 

:rero 

252 

1 60 

D-l :Q0-7981 :B0-B7:B1-81 :B-B0 

:C»1 




i r em 

221 

190 

POKE3 7 1 54,1 27: P0KE36 B78 ,15 

:rem 

158 

200 

FORP-3851 1 T03886 3STEP22 

r rem 

87 

210 

FQRZ-0T01 9 

: rem 

78 

220 

POKEP+Z 1 1 

: rem 

251 

230 

NEXTZ : NEXTP 

: rem 

247 

240 

B«BQ:Q«QQ 

: rem 

203 

250 

FOKEQ,B 

: rem 

133 

260 

GOSUB960 

; rem 

1 83 

270 

REM GIOCO 

: rem 

238 

280 

I FD * 1 THENGOSU B4 3 0 

: r em 

33 

290 

GOSUBB20 

ì rem 

181 

300 

IFPEEK (Q+I) O32THENG0SUB730 

: r em 

133 

310 

I FPEEK ( Q+ 1 ) < > 32THENGOSO B 820 

; rem 

1 34 

320 

IFPEEK (Q+I) O32THENG0SUB730 

: rem 

135 

330 

POKEQ ,32 

: rem 

167 

340 

QmQ+l 

: rem 

234 

350 

IFB-BGTHENQC-Q 

ì rem 

105 

360 

POKEQ,B 

: rem 

135 

370 

I F I * 0THEN2 80 

: rem 

168 


380 

FOR7-0TQD : NEXTT 

: rem 

247 

390 

D ■ D * 1 . 2 

: rem 

28 

400 

I FD> 2Q0THENI -0 : D- 1 :H-Q:IFB- 

B1THENB-B0 


: G-QC : POKEQ , B 

: rem 

86 

410 

I FD “ 1 THENGOSUB930 

; rem 

33 

420 

GOTO2B0 

: rem 

105 

4 30 

REM 

: r em 

123 

440 

REM 

: rem 

124 

4 50 

I FS- 1 THENGOSU Bl 570 

: rem 

101 

4 60 

F0RV-1T08 

: rem 

32 

470 

IFV-1THENI--1 : Z-67 

: rem 

63 

480 

XFV-2THENI--23:2-77 

; rem 

118 

490 

IFV-3THENI-- 22 : Z-93 

; rem 

117 

500 

IFV-4THENI--21 : Z-78 

: rem 

112 

510 

I FV" 5THENI * 1 : Z-67 

: rem 

1 7 

520 

I FV- 6 THE N I ■ 2 3 : Z-77 

: rem 

72 

530 

IFV-7THENI-22; Z=93 

: rem 

71 

540 

IFV-8THENI-21 :Z*78 

: rem 

75 

550 

A-PEEK(Q-I) 

: r em 

85 

560 

POKEQ- 1 / Z 

: rem 

23 

570 

FORT-QTO 1 00 : NEXTT 

: rem 

69 

580 

POKEQ- I f A 

: rem 

0 

590 

GOSllBl 820 

: r em 

233 

600 

IFJ-OANDK-64THEN550 

; rem 

106 

610 

I FJ- 320RK-39THEN64 0 

: r em 

112 

620 

NEXTV 

: rem 

45 

630 

GO 70430 

S rem 

105 

640 

REM VELOCITA' DELLA PALLINA 

: rem 

95 

650 

FORD«lTOl 00STEP1 0 

: rem 

5 

660 

VS-5TR8 (1 00- CD-I ) ) 

: rem 

114 

670 

PRINT" (HOME)f 2 GIU'JVELOC" 

f V8 + " 

H 

4 



: rem 

64 

680 

FORT- 0TC300: NEXTT 

: rem 

73 

690 

GOSUBl 820 

: r em 

234 
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700 

IFJ-QANDK-64THEN1 350 

: rem 

1 54 

710 

NEXTD 

:rem 

27 

720 

GOTO640 

: rem 

108 

730 

REM CONFINI DEL CAMPO 

DI GIOCO 




: rem 

1 99 

740 

IFPEEK (Q+I) -102THENH-1 

: GOTO 91 0 




: rem 

39 

750 

IFPEEK {Q+22) -1 02THENH- 

1 $ GOT091 0 




:rem 

67 

760 

IFPEEK ( Q- 2 2 ) - 1 02THENH- 

1 : GO TO 910 




:rem 

70 


770 IFPEEK (Q+ I ) -1 GOTHENI “I + 4 4 : GOTOl 350 

: rem 3 

780 I FPBEK 1 Q+ I ) - 9 9THEN I ■ I - 4 4 : GOTOl 350 

:rem 231 

790 IFPEEK (Q+ I ) -1 0 3TKENI -1+2 ; GOTOl 3 50 

: r em 210 

80 0 IFPEEK {Q+I j ■ 1 Gl TRENI -I-2:GOTOl 3 50 




:rem 

202 

810 

RETURN 

: rem 

121 

820 

REM COLLISIONE TRA LE PALLINE 




: rem 

236 

830 

1FI-0THENRETURN 

;rem 

239 

840 

IFPEEK (Q+I) -BOTHENPOKEQ,B:B=BG:Q- 

Q+I : 


GOTOl 350 

: rem 

38 

850 

IFPEEKtQ+I) •BlTHENPOKEG,B:B-Bl :Q* 

Q+I: 


GOTOl 350 

:rem 

41 

860 

IFPEEK (Q+l } -BT THENPOKEQ , B : E 

I-B1 :Q» 

Q+l : 


GOTOl 350 

: rem 

250 

870 

IFPEEK (Q-ì ) -B1THENPGKEQ,S:E 

i = B“ 1 :Q = 

Q-1 : 


GOTO! 350 

: rem 

255 

880 

IFPEEK (Q - 22 ) -Bl THENPOKEQ , 3 : 

3-B1 : Q 

-Q-2 


2: GOTOl 350 

: rem 

102 

890 

IFPEEK (Q«-22 -B 1 THENPDKÉQ , 3 : 

3-31 :Q 

-Q+2 


2: GOTOl 350 

; rem 

99 

900 

RETURN 

: rem 

1 21 

910 

REM GESTIONE DEL PUNTEGGIO 

: rem 

99 

920 

IFB-BQTHENI-O :D-1 :POKEO,32: 

Q-QQ : H-0 : S 


-1 

; rem 

706 

930 

IPH-0THENC--C : GOSUBl 500 

: rem 

127 

940 

IFC< 0 TRENI 040 

: rem 

237 

950 

IPH-1THENSA*$A+1 : POKEQ, 32: GOSUBl 4 

1 3 



: rem 

158 

960 

FRINT" (HOME } { RVS } " A$ ; SA" {OFF}” ?TAB { 1 \ 


) B$ ; SB 

: rem 

154 

970 

IPB-BlTHENH-0: I-Q;D-1 :Q»QC: 

B-BO 




:rem 

104 

980 

PRlNT rt IhOMEH 2 GIU'JVELOC 

100" 




: rem 

177 

990 

F0RP-7768T081 83 

: rem 

105 

1000 

I F PEBK { P ) -B 1 THENRETU RN 

: rem 

213 

1010 

NEKTP 

: rem 

81 

1020 

GOSUBl 080 

:rem 

7 2 

1030 

RETURN 

: rem 

164 

1040 

IFH«lTHEN$B-SB+l : POKEQ, 32 : 

GOSUBl 41 0 



:rem 

1 99 

1050 

PRINT* { HOME } 11 A$ ? SA ; TAB (11 ) 

"{RVS} 



{CYN} rt B$ ; SB" {OFF} (YEL}" 

: rem 

66 

1060 

EFSA+SB-1 5THEN1 860 

: r em 

75 

1070 

GOTO970 

: r em 

161 

1080 

REM 

: rem 

173 

1090 

FORP- 7770TO7777 : POKEP ,100: 

NEXT 




: rem 

129 

1100 

FORP-7780TO7787: POKEP, 1 00: 

NEXT 




: rem 

123 


1110 FORP-81 66T081 73 : POKEP , 99 : NEXT 

:rem 82 

1 1 20 FORP-81 76T08 1 83 : F0KEP , 99 : NEXT 

:rem 85 

1 1 30 PORP-781 2T081 20STEP22: POKEP, 1 03 :NEXT 

: r em 11 


1140 

FORP- 7833T081 41 STEP22 : POKEP , 1 0 1 : 

: rem 

NEXT 

16 

1 1 50 

POKE7768 ,1 02: PO KE 7769, 102: 

POKE7790 , 1 


02 

: rem 

149 

1160 

POKE81 64,1 02:POKE81 65,102: 

POKE81 42,1 


02 

:rem 

1 24 

1170 

PO KE 7 7 8 9 , 1 0 2 : PO KE7 7 88,1 02: 

POKE7 81 7 , ì 


02 

: rem 

149 

17 80 

POKE8 185,102: FOKE8 1 84,1 02: 

POKE81 63, 1 


02 

: rem 

133 

1 1 90 

POKE7778 ,102: POKE777 9 ,102 

: rem 

156 

1200 

POKE81 74,102: POKEB1 75,1 02 

: rem 

130 

1210 

FORN-lTO) 5 

: rem 

112 

1 220 

P-7768 + INT (396*RND CO) > 

: rem 

198 

1230 

IFPEEK (PJ0 32THEN1 220 

:rem 

238 

1 240 

IFPEEK (P+T }<>32THEN1 220 

:rem 

75 

1250 

IFPEEK ( P- 1 ) 032THEN1 220 

: rem 

78 

1260 

IFPEEK (P+22) 032THEN1 220 

:rem 

128 

1270 

IFPEEK < P - 2 2 J 032THEN1 220 

: rem 

131 

12 80 

IFPEEK (P+21 ) 0 32THEN1 220 

:rem 

129 

1290 

IFPEEK (P-21 ) 032THEN1 220 

: rem 

132 

l 300 

IFPEEK (P+23} 032THEN1 220 

: rem 

124 

1310 

IFPEEK (P- 23) 032THEN1 220 

: rem 

127 

1320 

POKEP, B1 

: rem 

228 

1330 

NEXTN 

: rem 

84 

1 340 

RETURN 

:rem 

168 

1350 

REM SUONO DELLA COLLISIONE 

1 TRA LE PA 


LLINE 

: rem 

1 7 

1360 

Q-D*l . 2 

:rem 

74 

1 370 

P0KE36875 , 1 80 

: rem 

204 

1380 

FORT- 0 T0 1 0 : NEXTT 

:rem 

69 

1 390 

POKE36875 , 0 

: rem 

101 

1400 

RETURN 

: rem 

165 

1410 

REM SUONO DELL 1 ACCREDITO 

DEL PUNTEG 


GIO 

; rem 

1 55 

1420 

FORS-0TO2 

: rem 

67 

1430 

POKB36876 , 220 

: rem 

1 97 

1 440 

FORT- OTO 2 0 : NEXTT 

: rem 

67 

1450 

POKE3 6876,0 

: rem 

99 

1460 

FORT- QTQ20 : NEXTT 

grem 

at- 

1470 

IFSA+SB-1 STHENl 860 

: rem 

eo 

1480 

NEXTS 

: rem 

95 

1490 

RETURN 

:rem 

1 74 

1500 

REM 

treni 

1 70 

1510 

POKE36875, 1 35 

srem 

200 

1520 

POKE36874, 201 

: rem 

194 

1530 

FORT- OTOSOO t NEXTT 

: rem 

118 

1540 

POKE36875, 0 

tieni 

98 

1550 

POKE36874 , 0 

srem 

98 

1 560 

RETURN 

:rem 

172 

1570 

REM 

irem 

177 

1580 

REM 

tram 

178 

1 590 

FORP - 7 7 8 2TO 8 1 56STEP22 

: rem 

50 

1600 

IFPEEK (P) -32THBNPQKEP , 1 03 

: rem 

44 

1610 

NEXTP 

: rem 

87 

1620 

REM 

: rem 

173 

1630 

V- 1 

; rem 

142 

1640 

GOSUBl 820 

: rem 

22 

1650 

IFJ-0ANDK-64THEN1 640 

: rem 

209 

1660 

IFJ-40RJ- 80RK-4 7THENI-V*22 

S : r em 

164 

1670 

I P J - 1 ORJ - 1 60RK- 5 STHENl - V* 1 

: rem 

157 

1680 

IFPEEK (Q+I > 0 32THENV--V; I* 

‘-1 

; rem 

243 

1690 

IFJ-320RK-39THEN1 730 

: rem 

218 

1 700 

POKEQ ,32: Q-G+I t QC -Q 

: rem 

194 

1710 

POKEQ , B 

treni 

183 

1720 

GOTOl 640 

: rem 

206 

1730 

GOSUBl 820 

;rem 

22 

1740 

IFJ-0ANDK-64THENI 760 

: rem 

212 

1750 

GOTOl 730 

: rem 

209 

1 760 

REM 

: rem 

178 

1 770 

FORP- 77B2TQB1 56STEP22 

srem 

50 
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I {tara contiene ioni po 7 *fTin m Basic per 
Apple le 
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MÀSTER TVC 1 
MÀSTER TVC 2 

1 accoppati MÀSTER TVC 1 • MASTER TVC 

2 passi r* rassegna lutti i otrcub da tototoort 
a ebbri veccN e nuovi, spiegandone I funzio- 
namento dreftamanle sugli attorni eteftnci 
Di ogn stadio vengono presentate le soàrnom 
cécuW rdalM ale moie marche n cornuto ■ 
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Qo&mpp^m UnOOOOO 


UÙVaxt 
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LWormatic* è desinate a cMniare un* delle 
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l'nchflduQ mede Questo Sbro rrwi * iar cono 
■cere i 1080 a ir piiibÉcc di cutton dei’m- 
katnatet. che vedono approtondrta o che 
ramo lobtoUo d lane apprende r e {ABC t 
degl uto* Vi erba ' 


Coi 


\Pw§m umn.soo 


Vatow AJes&ndm 
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I conirD#on programmata permettono d ree 
lizzare automato^ ndustrto motto lempfco 
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T 780 

IFPEER(F}-1 03THEHPOKEP, 32 

;rem 

53 

1790 

NEXTP 

treni 

96 

1800 

5-0 

:rem 

137 

laro 

RETURN 

tram 

170 

1820 

REM LEGGE IL JOYSTICK 

: rem 

24 

1830 

J- (NOTPEEK (371 51 ) 1 AND60- ( {PEEK[371 52 


) ANDl 28) -0) 

treni 

103 

1840 

K-PEEK097) 

: rem 

108 

1850 

RETURN 

: rem 

174 

1860 

PRXNTMCLRU 5 GIU 1 } { 9 SPAZI} ANCORA 


?" l POKEl 99,0) PRI UT" { 2 GIU' 

} 



{ 8 SPAZI ìtS/M)* 

; rem 

43 

1870 

GETAS : I FA$ - " S " THBNRUN 

;rem 

59 

1880 

IFA$<>"N"THEN1 870 

: rem 

203 



• 
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491 52 

169 , 

,012 

» 1 41 

,021 , 

,208 

, 169 , 

,208 

49158 

255 , 

r 1 4 1 

,059 

, 099 , 

,141 

, 060 , 

,249 

49164 

099 , 

,169 

,001 

,141 , 

,001 

, 086 , 

,255 

491 70 

169 , 

,000 

,141 

, 051 , 

,099 

, 032 , 

,254 

49176 

024 1 

,197 

,032 

, 206 , 

,203 

, 169 , 

,087 

491 82 

255 , 

,141 

,021 

, 208 , 

,032 

, 209 , 

,128 

491 88 

195 , 

,032 

,093 

, 197 , 

,032 

, 163 , 

,236 

491 94 

197 , 

,032 

,248 

, 204 , 

,169 

, 000 , 

,124 

49200 

141 , 

,062 

,099 

, 141 , 

,063 

, 099 , 

,141 

49206 

1 73 , 

,001 

,088 

, 208 , 

,115 

, 162 , 

,033 

4921 2 

000 , 

,142 

,057 

, 099 , 

,189 

, 004 , 

,039 

4921 8 

208 , 

,201 

,070 

, 240 , 

,006 

,201 , 

,224 

49224 

235 , 

,240 

,008 

, 208 , 

,097 

, 238 , 

,074 

49230 

062 , 

,099 

,076 

, 086 , 

,192 

, 238 , 

,063 

49236 

063 , 

,099 

,232 

, 232 , 

,224 

, 012 , 

,178 

49242 

208 , 

,228 

,162 

, 022 , 

,160 

, 012 , 

,114 

49248 

024 , 

,032 

,240 

, 2 S 5 , 

,173 

, 058 , 

,110 

49254 

099 , 

,201 

,001 

, 208 , 

,003 

, 076 , 

,178 

49260 

027 , 

,206 

,173 

, 062 , 

,099 

, 205 , 

,112 

49266 

063 , 

,099 

,240 

, 036 , 

,176 

, 017 , 

,233 

49272 

169 , 

,238 

,160 

, 204 , 

032 

, 030 , 

185 

49278 

171 , 

169 

,184 

, 160 , 

,205 

, 032 , 

,023 


49284 : 030 , 1 71 , 076 , 161 , 192 , 169,163 
49290 : 227 , 160 , 204 , 032 , 030 , 171 ,194 
49296 : 169,1 84 , 160 , 205 , 032 , 030,156 
49302 : 171 , 076 , 161 , 192 , 169,1 71 ,066 
4 9308 : 160 , 205 , 032 , 030,1 71 , 169,155 
4 9314 : 060 , 133 , 162,1 65,1 61 ,1 97,016 
49320 : 161 , 240,2 52 , 076 , 000 , 192,065 
49326 : 173 , 001 , 068 , 240 , 003 , 032,199 
49332 : 01 0 , 1 95 , 169 , 000 , 141 , 001 ,184 
4 9338 : 088 , 141 ,061 , 099 , 032 , 226,065 
49344 : 192 , 169 , 000 , 1 41 , 164 , 096 , 1 86 
49350 : 1 41 , 032 , 096 , 1 41 , 000 , 088,1 84 
49356 : 032 , 04 2 , 193 , 162 , 009 , 032, 162 
49362 : 1 12 , 1 93 , 202 , 208 , 250 , 032,1 83 
49368 : 11 B , 193 , 173 , 000 , 088 , 240,004 
49374 : 226,0 76,04 3 , 1 92 , 173 , 002,1 66 
49380 : 208 , 141 , 000 , 208 , 201 ,1 75,137 
49386 : 144 , 004 , 169 , 254 , 208 , 003, 248 
49392 : 024 , 105 , 080 , 1 41 , 053 , 099,230 
4 9398 : 173 , 000 , 208 , 056,2 33 , 080, 228 
49404 : 1 41 , 054 , 099 , 173 , 003 , 208,162 
49410 : 141 , 001 , 208 , 201 , 165 , 144,094 
4 9416 : 004 , 1 69 , 245 , 208 , 003 , 024,1 49 
4 9422 : 1 05 , 080,1 41 , 056 , 099,1 73,1 56 
4 942 8 : 057 , 099,20 8 , 01 7,1 73 , 001 ,063 
4 9434 : 208 , 201 ,1 30 , 176 , 004 , 169,146 
4 9440 : 050 , 2 08 , 00 3 , 056 , 233 , 080, 150 
4 9446 : 141 , 055 , 099 , 096,1 74 , 000,091 
49452 : 208 , 1 72,051 , 099,1 85 , 000,247 
49458 : 220,1 72 , 001 , 208 , 074 , 176,1 33 
49464 : 007,1 36 , 204 , 055 , 099 , 176,221 
49470 : 001 , 200 , 074 , 176 , 007 , 200,208 
49476 *. 204 , 056 , 099 , 144 , 001 , 136,196 
49482 : 074 , 176 , 007 , 202 , 236 , 054,055 
4948 B : 099 , 1 76 , 001 , 232 , 074 , 176,070 
49494 : 007 , 232 , 236 , 053 , 099 , 144,089 
49500 ; 001 , 202 , 074 , 176 , 008,1 69,210 
49506 : 001 , 1 41 , 032 , 096 , 1 41 , 000,253 
49512 *. 088,1 42 , 000 , 208 , 140,001 ,171 
4951 8 : 208 , 096 , 160 , 000 , 136 , 208,1 50 


49524 : 253 , 096 , 1 73 , 032 , 096 , 208,206 
4 9530 : 003 , 076 , 143,1 94 , 169 , 000,195 
49536 : 141 , 112 , 096 , 141 , 096 , 096,042 
49542 : 173 , 000 , 208,0 56 , 237 , 002, 042 
49548 : 208 , 046 , 11 2 , 096,1 41 , 000,2 31 
49554 : 096 , 173 , 001 , 208 , 056 , 237,149 
49560 : 003 , 20 8 , 046 , 096 , 096 , 141 ,230 
49566 *. 016 , 096,1 73 , 112 , 096 , 208,091 
49572 : 01 1,1 73 , 000 , 096 , 073 , 255,004 
49578 : 1 41 , 000 , 096 , 238 , 000 , 096,22 9 
49584 : 1 69 , 004 , 1 41 , 128 , 096 , 173,119 
49590 : 096 , 096 , 208 , Oli , 1 73 , 016,014 
49596 : 096 , 073 , 255 , 141 , 016 , 096,097 
49602 : 238 , 01 6 , 096 , 160 , 000,1 85,1 21 
49608 : 1 12 , 096 , 240 , 028 , 1 85 , 000,093 
49614 : 101 , 024,121 , 000 , 096 , 153,189 
49620 : 000 , 101 , 185 , 002 , 208 , 105,045 
49626 *. 000,201 , 198 , 144 , 003 , 032,028 
49632 : 144 , 194 , 153 , 002 , 208 , 076, 233 
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49638 

49644 

49650 

49656 

49662 

49668 

49674 

49680 

49686 

49692 

49698 

49704 

49710 

49716 

49722 

49728 

49734 

49740 

49746 

49752 

49758 

49764 

49770 

49776 

49782 

49788 

49794 

49800 

49806 

49812 

49818 

49824 

49830 

49836 

49842 

49848 

49854 

49860 

49866 

49872 

49878 

49884 

49890 

49896 

49902 

49908 

49914 

49920 

49926 

49932 

49938 

49944 

49950 

49956 

49962 

49968 

49974 

49980 

49986 


: 001 , 194,1 85 , 000 , 101 , 056,2 55 
: 249 , 000 , 096,1 53 , 000, 101 ,067 
: 1 85 , 002 , 208 , 233 , 000 , 201 ,047 
: 106,1 76 , 003 , 032 , 144,1 94,135 
: 1 53 , 002 , 208 , 1 85 , 096 , 096,226 
: 240 , 028 , 185 , 032 , 1 01 , 024,102 
: 121 , 016 , 096 , 153 , 032 , 101 ,01 7 
: 1 85 , 003 , 208 , 105 , 000 , 201 ,206 
: 194 , 1 44 , 003 , 032,1 81 , 194,002 
: 1 53 , 003 , 208 , 076 , 059 , 194,209 
; 1 85 , 032 , 101 , 056 , 249 , 01 6,161 
: 096 , 153 , 032, 101 , 185 , 003,098 
: 208 , 233 , 000, 201 , 090 , 176,1 86 
: 003 , 032 , 1 81 , 194 , 153 , 003,106 
: 208 , 032,1 99 , 197 , 172 , 162,004 
: 096 , 200 , 200,1 92 , 014 , 240,238 
: 003 , 076 , 199 , 193 , 202 , 240, 21 5 
: 003 , 076 , 1 97,1 93 , 206 , 128,11 1 
: 096 , 208 , 248 , 032 , 065 , 20 5,1 68 
: 169 , 004,1 41 , 128 , 096 , 162,020 
: 01 2,1 89 , 000 , 096, 02 9 , 01 6,1 80 
: 096 , 201 , 006 , 176,22 8 , 169,208 
: 000 , 157 , 000 , 096 , 1 57 , 016,020 
: 096 , 202 , 202 , 01 6 , 234,1 6 9,007 
: 000,1 41 , 032 , 096 , 162 , 014,0 51 
:ì 57 , 000 , 096,1 57 , 016 , 096,134 
: 202 , 01 6 , 247,1 73,061 ,0 99 , 1 60 
: 208 , 005 , 169,001 ,1 41 ,001 ,149 
: 088 , 096 , 072 , 032,1 90 , 205,057 
: 162 , 001 , 1 85 , 112 , 096 , 073,009 
: 001 , 153 , 112 , 096 , 185 , 003,192 
: 208, 201 , 192 , 176 , 043 , 201 ,157 
: 093 , 144 , 039 , 201 , 138,1 76,1 89 
: 002 , 1 04 , 096 , 201 , 146 , 144,097 
: 029 , 1 04 , 096 , 072 , 032,1 90,1 89 
: 205 , 162 , 000 , 1 85 , 096 , 096,1 60 
: 073,001 ,1 53 , 096 , 096,1 85,026 
: 002 , 208 , 201 , 195 , 176 , 006,216 
: 201 , 107 , 144 , 002 , 104 , 096,088 
: 032 , 208 , 205 , 1 04 , 192 , 000,1 81 
: 208 , 007 , 169 , 001 ,141 ,001 ,229 
: 088 , 208 , 003 , 238 , 164 , 096,249 
: 169 , 000 , 153 , 000 , 096 , 153, 029 
: 01 6 , 096 , 1 73 , 051 , 099 , 240,139 
: 004 , 1 69 , 070 , 208 , 002 , 169,092 
{ 235 , 153 , 002 , 208 , 152 , 010,236 
: 010 , 010 , 024 , 105 , 070 , 153,11 0 
{ 003 , 208 , 224 , 000 , 240 , 003,166 
{ 185 , 002 , 208 , 096 , 169 , 254,152 
{ 141 , 021 , 208 , 173 , 058 , 099,200 
{ 201 , 001 , 240 , 007 , 1 73 , 051 ,179 
: 099 , 073 , 001 , 240 , 004 , 169,098 
{ 070 , 208 , 002 , 169 , 235 , 1 62,108 
: 000 , 221 , 004 , 208 , 240 , 009,206 
: 232 , 232 , 224 , 014 , 208 , 245,173 
{ 076 , 096 , 195 , 169 , 155 , 1 57,128 
{ 004 , 208 , 232 , 169 , 148 , 157,204 
{ 004 , 208 , 254 , 004 , 208 , 165,135 
{ 162 , 197 , 162 , 240 , 252 , 165,220 



49992 

si 62 

,197 

,162 

,240 

,252 

,173 

,234 

49998 

: 030 

,208 

,208 

,236 

,254 

,004 

,250 

50004 

: 208 

,165 

,162 

,197 

,162 

,240 

,194 

50010 

: 252 

,173 

,030 

,208 

,208 

,222 

,159 

50016 

: 1 69 

,153 

,141 

,002 

,208 

,170 

,171 

50022 

; 1 69 

,100 

,141 

,003 

,208 

,141 

,096 

50028 

: 057 

,099 

,165 

,162 

,197 

,162 

,182 

500 34 

t 240 

,252 

,172 

,051 

,099 

,185 

,089 

50040 

: 000 

,220 

,142 

,002 

,208 

,074 

,254 

50046 

: 1 76 

,017 

,206 

,003 

,208 

,072 

,040 

50052 

; 1 73 

,003 

,208 

,201 

,090 

,176 

,21 5 

50058 

: 005 

,169 

,100 

,141 

,003 

,208 

,252 

50064 

: 1 04 

,074 

,074 

,176 

,006 

,202 

,012 

50070 

: 22 4 

,105 

,176 

,001 

,232 

,074 

,194 

50076 

: 1 76 

,006 

,232 

,224 

,199 

,144 

,113 

50082 

; 001 

,202 

,074 

,176 

,199 

,165 

,211 

50088 

: 1 62 

,1 97 

,162 

,240 

,252 

,173 

,074 

50094 

: 030 

,208 

,041 

,002 

,208 

,186 

,081 

50100 

;1 85 

,000 

,220 

,041 

,016 

,240 

,114 

501 06 

: 249 

,169 

,000 

,133 

,162 

,105 

,236 

501 12 

: 025 

,197 

,162 

,176 

,252 

,169 

,149 

5011 8 

: 255 

,141 

,021 

,208 

,173 

,003 

,231 

501 24 

: 208 

,141 

,055 

,099 

,096 

,169 

,204 

501 30 

: 1 47 

,032 

,210 

,255 

,169 

,160 

,159 

501 36 

: 1 60 

,016 

,1 53 

,130 

,004 

,153 

,064 

50142 

;] 70 

,004 

,169 

,160 

,153 

,002 

,112 

501 48 

: 007 

,153 

,042 

,007 

,136 

,016 

,077 

501 54 

: 239 

,032 

,076 

,204 

,169 

,210 

,140 

50160 

; 1 33 

,251 

,169 

,004 

,133 

,252 

,158 

50166 

: 1 69 

,210 

,133 

,253 

,169 

,216 

,116 

50172 

: 1 33 

,254 

,162 

,014 

,160 

,000 

,207 

501 78 

: 1 69 

,160 

,145 

,251 

,200 

,169 

,072 

501 84 

; 1 60 

,145 

,251 

,160 

,015 

,145 

,116 

501 90 

: 251 

,200 

,169 

,160 

,145 

,251 

,166 

50196 

: 1 65 

,251 

,024 

,105 

,040 

,133 

,226 

50202 

: 251 

,165 

,252 

,105 

,000 

,133 

,164 

50208 

: 252 

,165 

,253 

,024 

,105 

,040 

,103 

50214 

;1 33 

,253 

,165 

,254 

,105 

,000 

,180 

50220 

: 1 33 

,254 

,202 

,208 

,207 

,169 

,193 

50226 

: 000 

,141 

,051 

,099 

,169 

,033 

,031 

50232 

; 1 41 

,171 

,004 

,141 

,184 

,004 

,1 89 

50238 

; 1 41 

,195 

,005 

,141 

,21 9 

,006 

,001 

50244 

: 1 69 

,034 

,141 

,172 

,004 

,141 

,217 

50250 

: 1 85 

,004 

» 1 41 

,209 

,005 

,141 

,247 

50256 

: 233 

,006 

,169 

,036 

,141 

,225 

,122 

50262 

: 004 

,141 

,249 

,005 

,141 

;oi7 

,131 

50268 

: 007 

,141 

,004 

,007 

,169 

,035 

,199 

50274 

: 1 41 

,211 

,004 

,141 

,235 

,005 

,067 

50280 

: 1 41 

,003 

,007 

,141 

,016 

,007 

,163 

50286 

: 1 69 

/ 1 74 

,141 

,175 

,004 

,141 

,146 
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«li 

ultimi 

saranno 

i 

primi? 

Giudicalo tu. 

Anche se, in ordine cfi tempo, 
siamo gii ultimi a uscire con libri 
'dedicati * ai più diffusi home e 
persona/ computer, starno convinti 
che i/ lettore attento ed esigente 
apprezzerò la qualità dei contenuti 
e lo foro presentazione. 
Abbiamo selezionato e tradotto / 
best-seller mondiali che accolgono 
quanto di più utile è stato scritto 
per ii tuo computer. 

Scegli a colpo sicuro! 


Puoi ordinar* dirutamente i tìtoli presentarti 
compilando ed inviando il coupon pubblicato 
oppure acquistarti presso i più qualificati 
computer shop o le migliori librerie. 


CEDOLA Dt ORDINAZIONE - LIBRI 

Compilar* m tpodìrv in burla chiù» a: 

J. «e#- Vwte Rertelli 5 - 201 24 Milano 
tal 02/6860841.6880642.4880843 


I 

I 


Ordino i seguenti libri por un importo totale di L «««—« 
+ L 2 000 com* contributo fìjfa p*rtp*f* di *p#di'jiofW 


Godi 

Co d 
C od. 


Cod 

Cod 

Cod 


HHWH IfPHII HHm »P"P" 


O Confanti allegati 

□ Àswgnodtegatofl*.-.^™-- — » 

□ Ho jpvdrfo rimporfo o fmoo voglia postate 

□ Ho «luto HnrporibsufCCFfl* I $445204 inte sta to a 
J. «Hft - Milano 

O Podteè In eontroaegno oi poetino al mwimiKi 1 d* 
rtflim 


fc — - 

CfTfffTTTTTf --ir i™ ■ ' ' burnii ri 1 


vs« 


CAP Gite 

fttiv. 

S* fattura - cadicm fincate , 

Da hi 






L«ite< 4 fVi puup ri ^ xì 
vlnln iwinHfiu jEWr II w 

Cod. ASGC 001 C 42.000 
(rnctusa cassetto) 

Un fibra pensato e 
realizzato per rt 
divertimento de/ t'u tonto 9 
del C 64; contiene 19 J 
giochi di vario genere futtfj 
ampiamente commentati. 1 
L'attento studia dei 
programmi potrò essere ; 
vantaggioso per 
/'opprandimento de/te 
tecniche di 
programmazione. 

//fibra del C 64 
Volume 1 

Cod. ASOC 010 L 24.000 
[inclusa cassetto) ^ 

//frbrodWC64 
Vb/ume 2 

Cod.ASOCOnL24.OOaI 
fine/usa cassetto) 

/ due libri illustrati O ù 
fondo te passibi/ifà dei 


Volume ! 

Cod. ASOC 006 L 24.000 
f inclusa cassetta) 

C 64; mono * grafica * 

Vo teme 2 

Cod. ASOC 00? L. 24.000 
(inclusa cassetto) 


Due votemi che non 
possono mancare nette 
biblioteca dell'utente 
Commodore. Una miniera 
di idee e suggerimenti per 
te programmazione de/ 
tuo persona/ computer. 
Una vasto serie dr 
programmi esemp/ificofivi 
guidano il lettore a/ 
miglior sfruttamento det 
Commodore 64. 


compendio di utili 
consìgli , e quonfa/tro è 
necessario per conoscere 
meglio // proprio 
calcolatore. esempi p rafie 
comptetano l'esposizione 
in modo chiara ed 
esauriente. 


grafici per 


olVuso ' e ampiamente 
commentati, /programmi 
sono scritti sfruttando 
appieno le capacitò del 
calcolatore ed il toro 
studio può giovare a 
chiunque intenda affinare 
te proprie tecniche di 
programmazione. 


Cod. ASOC 002 L. 24.000 
(inclusa cassetto) 

Un fantastico volume con 
15 entusiasmanti gtocht 
aratici per il tuo ZX 
Sptcfrum. Tutti i 
programmi sono 'pronti 


teoftre, i Paper Boote te 
raccolto dei programmi 
suddivisi per macchina di 
Paper Soft, r/ primo 
settimanale ai software su 
corto per il tuo computer. 

Paper Book - programmi 
tyerAoofe//- 

CòdASOC 005 L 18.000 

Paper Book - programmi 
per VIC 20 - 

Cod. ASOC 003 L 1&000 

Paper Book - pro^nmtmù 

Cod. ASOC 004 L 18.000 

fmrTexasTt^AS^^ 
Cod. ASOC 007 L 18.000 
Paper Back - programmi 
ptfZX Spuftmm- 
Cod. ASOC 006 L I&000 


50292 lisi ,004,141 ,035,005,141 ,111 
50 2 98 ; 049,005,1 41 ,11 5,005,141 ,066 
50304 : 129,005,1 41 ,059,006,141 ,097 
50310 : 073, 006, 141 ,1 39,006,141 ,128 
50316 : 153,006, 141 ,007,007,141 ,083 
50322 : 01 3, 007, 169, 01 9, 032, 21 0,084 
50328 :255, 169,003,1 41 ,255,097,048 
50334 : 1 69,077 , 1 60 , 20 5 , 032, 030, 063 
50340 : 1 71 ,206,255,097,208,244,065 
50346 : 169, 01 8, 141 ,255,097,169,251 
50352 : 120, 160,205,032,030,1 71 ,126 
50358 : 206, 2 55, 097, 208, 244, 169,081 
50364 : 003, 141 ,255,097,169,077,162 
50 370 : 160, 205,032,030, 171 ,206,2 30 
50376 : 255,097,208,244, 160,039,1 79 
50382 : 169, 160, 153,1 92,00 7,169,032 
50388 : 001 ,1 53,192,219,136,016,161 

50 394 : 243, 173,058,099,201 ,001 ,225 
50400 : 208, 01 8, 1 62 ,001 , 1 60, 01 4 , 01 9 
50406 : 024, 032, 240, 2 55,1 69,1 63,08 9 
50412 : 160, 205, 032,030,1 71 ,076,1 42 
50418 : 01 8,1 97,162,001 ,160,001 ,01 3 
50424 : 024, 032, 240, 2 55, 169,227,1 71 
50430 :1 60,204,032,030, 171 ,162,245 
50436 tOOl ,160,029,024,032,240,234 
50442 : 255, 169, 238,1 60,204, 032,04 4 
50448 t 030, 171 , 1 69 , 01 3 , 1 41 , 033 , 061 
50454 : 208, 096, 169, 000, 160, 127, 01 4 
50460 :1 53,064,003,1 36,01 6,250, 138 
50466 : 160, 007, 169, 000, 153, 1 1 2, 123 
50472 : 096,1 53,096,096,136,016,121 
50478 : 24 5, 169, 001 ,141 ,028,208,070 
50484 : 1 41 ,037,208,160,007,162,255 
50490 : 02 3,1 85,096,204,157,064,019 
50496 : 003, 185, 104, 204, 157, 128, 077 
50502 : 003, 136,202,202,202,01 6,063 

50508 : 238, 169, 01 4, 141 ,248,007,125 
50514 :1 69,013,1 60,006,1 53,249,064 
50 520 ; 007, 136, 01 6, 250, 096, 120, 201 
50526 :1 65,001 ,041 ,251 ,133,001 ,174 
50 532 : 169, 000,1 33,251 ,169,056,110 
50 538 : 133,252, 169,000,1 33,253,022 
50 544 : 169, 208, 133, 254, 162, 008, 022 
50550 : 160,000, 177,253,145,2 51 ,080 
50556 :1 36,208,249,230,252,230,1 49 
50 562 : 254, 202, 208, 240, 160,032,202 
50568 : 1 85 , 11 8 , 204 , 1 53 , 008 , 057 , 093 
50574 :1 36,01 6,247,165,001 ,009,204 
50 580 : 004, 133,001 ,088,173,024,059 
50 586 : 208, 041 ,240,009,014,141 ,039 
50592 t 024, 208, 096, 160, 01 5, 185, 080 
50598 :1 50,204,153,000,208,136,249 
50604 : 01 6, 247, 160, 007, 185, 166,1 85 
50610 : 204 , 1 53 , 039 , 208 , 1 36 , 01 6 , 1 66 
50616 : 247, 169, 000, 160, 01 5,1 53,160 
50622 : 000, 096,1 53,016,096,1 36,175 
50628 : 01 6, 247, 096, 140, 162, 096,1 85 
50634 : 185, 000, 101 ,141 ,016,064,1 97 


50640 : 1 85, 002, 208, 141 ,161 ,096,233 
50646 : 160, 00 0,1 40, 160, 096, 172, 174 
50652 {160,096,173,016,064,200,161 
50658 : 20 0, 192,014,208,004,1 72,248 
50664 :1 62,096,096,056,249,000,1 23 
50670 : 101 ,173,161 ,096,249,002,252 
50676 : 208,201 ,008,144,004,201 ,24 2 
50682 : 24 8, 144,22 5,204,162,096,049 
50688 :240,220,141 ,165,096,140,234 
50694 : 160, 096, 172, 162, 096, 18 5, 109 
50700 : 032, 101 ,056,1 72,160,096,11 7 
50706 : 249,0 32, 101 ,172,162,096,062 
50712 :1 85,003,208,1 72,160,096,080 
5071 8 1249,003,208,201,008,144,075 
50724 : 004,201, 248, 144, 1 78, 1 41 , 1 84 
50730 :1 66,096,238,061 ,099,169,103 
50736 ; 01 6,141 ,005,212,169,000,079 
50742 : 1 41 ,006,21 2,1 69,01 5,1 41 ,226 
50 74 8 : 024, 21 2,1 69,1 20,1 69,008,2 50 
507 54 : 141 ,024,212,141 ,001 ,212,029 
50760 : 1 69,1 28,1 41 ,004,21 2,1 69,1 27 
50 766 : 1 29 , 1 41 , 004,21 2,1 72,162,1 30 
50 772 : 09 6,1 74,1 6 0,0 96,1 85,000,027 
50 77 8 : 096, 072, 1 8 5,1 1 2,096,208,091 

507 84 : 00 5, 1 04, 03 2, 01 8, 20 1,072, 01 6 
50 790 : 1 04, 1 41 , 1 67,096,1 8 5,01 6,043 
50796 1096,072,185,096,096,208,093 
50802 t 005, 1 04,032,01 8,201 , 072,034 
50808 : 104,1 41 , 1 68 , 096 , 1 89 , 000 , 050 
50 814 : 096, 072, 189,11 2,096,208,1 31 
50820 ;005, 104, 032, 01 8,201 ,072,052 
50826 : 104, 141 ,169,096,189,016,085 
50832 : 096, 072,1 89,096,096,208,133 
50838 :005,104,032,01 8,201 ,072,070 
50844 {104,1 41 , 1 70 , 096 , 1 69 , 000 , 068 
50850 {141,032,064,141,033,064,125 
50856 {1 73,165,096,016,009,032,147 
50862 :018,201,141,165,096,238,009 
50868 :032,064,173,166,096,016,21 5 
50874 {009,032,01 8,201 ,141 ,166,241 
50880 {096,238,033,064,174,165,194 
50886 {096,172,166,096,1 89,199,092 
50892 :205,141 , 1 76 , 096 , 1 69 , 000 , 223 

508 9 8 : 141 ,165,096,141 ,166,096,247 
50904 {1 85,1 99,205,141 ,1 77,096,1 95 
50910 {173,032,064,240,021,173,157 
50916 {176,096,141 ,171 ,002,141 ,187 
50922 :167,002,173,165,096,141 ,210 
50928 :168,002,141,172,002,076,033 
50934 {017,199,173,176,096,032,171 
50940 : 01 8,201 ,141 ,171 ,002,141 ,158 
50946 {167,002,173,165,096,073,166 
50952 {255,105,000,141 ,172,002,171 
50958 {141,168,002,173,033,064,083 
50964 : 240, 028, 173, 177,09$, 141 ,107 
50970 {173,002,032,018,201 ,141 ,081 
50976 *1 69,002,173,166,096,141 ,01 1 
50982 {174,002,073,255,105,000,135 
50988 {141 ,170,002,076,075,199,195 


SUPSRCOkMODOHE* US 71 



50994 : 173 , 1 77 , 096,141 , 169 , 002, 040 
5100 Q : 032 , 018 , 20 1 , 141 , 173 , 002,111 
51006 : 173 , 166 , 096 , 141 , 170 , 002,042 
5101 2 : 073 , 2 55 , 10 5 , 000, 141 , 174,048 
5101 8 : 002 , 174 , 169,00 2 , 172 , 170,251 
51024 : 002,1 73 , 168 , 096,1 41 ,0 86,2 34 
51030 : 064 , 032 , 254 , 20 0 , 032,1 85,08 5 
51036 : 201 , 032 , 004,201 , 174 , 167,103 
51042 : 002 , 172 , 168 , 002 , 173 , 167, 01 4 
51 048 : 0 96 , 1 4 1 , 086 , 064 , 032 , 254,009 
51054 : 200 , 032, 18 5 , 201 ,0 56 , 229,24 5 
51060 : 251 ,141 ,1 83,0 96,1 52,2 29,144 
51066 : 252 , 141 ,1 82 , 096,1 74 , 169,1 12 
51072 : 00 2,1 72 , 170,00 2 , 173,16 7,046 
51078 : 096 , 141 , 086 , 064 , 032 , 254,039 
51084 : 200 , 032 , 185 , 201 , 032 , 004,026 
51090 : 201 , 174 , 167 , 002 , 172 , 168,006 
51096 1002 , 173 , 168 , 096 , 141 , 086,050 
511 02 1064 , 032 , 254 , 200 , 032 , 1 85,1 57 
511 08 i 201 , 024 , 101 , 251 , 141 , 1 85,043 
51114 1096 , 152 , 101 , 252 , 1 41 , 1 84,072 
51120 1096 , 174 , 169 , 002 , 172 , 170,191 
51126 1002 , 173 , 170 , 096 , 141 , 086,082 
51 132 1064 , 032 , 254 , 200 , 032 , 1 85,1 87 
511 38 i 201 , 032 , 004,201 ,1 74 , 167,205 
511 44 i 00 2,1 72,1 6 8,00 2,1 73,1 6 9,1 1 8 
51150 1096 , 141 , 086 , 064 , 032 , 254,111 
51 1 56 i 200 , 032 , 1 85 , 201 , 056 , 229,091 
51 1 6 2 : 251 , 1 41 , 1 87 , 096,1 52 , 229,250 
51 1 68 : 252,1 41 , 1 86 , 096,1 74,1 69,21 8 
51174 ; 002 , 172 , 17 0 , 002 , 173 , 169,1 50 
51 1 80 : 096,1 41 , 086 , 064 , 032 , 254,141 
51 1 86 ; 200 , 032,1 85 , 201 , 032 , 004,128 
51 1 92 : 201 ,1 74 , 167 , 002 , 172,1 68,108 

511 98 : 002 , 1 73,1 70 , 096,141 , 086,1 54 
51204 : 064, 0 32 , 2 54 , 200 , 032,1 85,00 3 
51210 ; 201 , 024,101 , 251,141 ,1 89,149 
51216 : 096, 1 52, 101 , 252,141 ,1 88,1 78 
51222 : 096 , 174 , 173 , 002 , 172 , 174, 04 5 
5122 8 : 002, 1 73, 1 84 , 096, 141 , 086,198 
51234 : 064 , 173 , 1 85 , 096 , 141 , 084,009 
51240 : 064 , 032, 18 5,201 , 032,0 04,04 6 
5124 6 : 201 , 174,1 71 , 002,1 72 , 172,1 70 
51252 : 002 , 1 73,1 86 , 096,141 , 086,2 24 
51258 : 064 , 173,1 87 , 096,141 , 084,035 
51264 : 064 , 032 , 1 85 , 201 , 056 , 229,063 
51270 : 251 , 141 , 080 , 064 , 152 , 229,21 9 
51 276 : 252, 141 ,1 78 , 096,1 74 , 173,066 

512 82 : 002 , 172 , 174 , 002 , 173 , 1 86,023 
512 88 : 096,1 41 , 086 , 064 , 1 73 , 1 87 , 067 
51294 : 096 , 1 41 , 084 , 064 , 032 , 185,1 84 
51 300 :201 , 032 , 004 , 201 ,1 74,171 ,1 1 5 
51 306 : 002 , 172,1 72 , 002,1 73,1 84,043 
51 312 : 096,1 41 , 086 , 064 , 1 73 , 1 85 , 089 
51 31 8 : 096, 141 , 084 , 064 , 032,1 85,208 
51 324 : 201 , 024,101 ,251 ,141 ,0 82,156 
51330 : 064,1 52,101 ,2 52,1 41 ,1 79,251 
51 3 36 : 096,1 74 , 173 , 002,1 72,1 74,159 
51342 { 002 , 173 , 188 , 096 , 1 41 , 086,060 


51348 : 064,1 73,1 89 , 096,141 , 084,127 

513 54 : 064, 0 32,1 85 , 201 , 032 , 004,160 
51 360 : 201 , 174 , 171 , 002 , 172 , 172,028 
51366 ; 002 , 1 73,1 82 , 096,141 , 086,078 
51372 : 064 , 173 , 183 , 096, 141 ,0 84,145 
51 378 : 064 , 032 , 185 , 201 , 056 , 229, 177 
51384 : 251 ,141 ,081 , 064 , 152 , 229,078 
51390 : 2 52, 1 41 ,1 80 , 096,1 74 , 173,1 82 
51396 : 002, 1 72, 1 74, 00 2 , 173, 1 82, 133 
SI 402 : 096, 141 , 086,0 64 , 173,1 83,177 
5140 8 : 096, 141 , 084 , 064 , 032,1 85,042 
51 414 : 201 , 032 , 004,201 , 174,171 ,22 9 

514 20 : 002,1 72 , 172 , 002,1 73 , 188,161 

51426 : 096,1 41 , 086 , 064 , 173,1 89,207 
51432 : 096,1 41 , 084 , 064 , 032 , 1 05 , 066 
51 43 8 : 201 , 024,1 01 , 251 ,1 41 , 083,01 5 
51 444 : 064,1 52,101 , 252,141 ,1 81 ,11 1 
51 450 : 096 , 076 , 024,201 , 169 , 000,048 
514 56 : 141 , 084 , 064 , 096 , 133,251 ,001 
51462 : 132 , 252 , 096 , 173 , 190 , 096,177 
5146 8 : 073,001 ,141 , 190 , 096 , 096,097 
51 474 { 073 , 255, 0 24 , 105 , 001 , 096, 060 
51480 { 174 , 162 , 096 , 172 , 160 , 096,116 
51 486 { 1 69 , 001 , 153 , 1 12 , 096 , 157,206 
51 492 : 1 1 2 , 096 , 1 57 , 096 , 096 , 1 53,234 
51498 : 096 , 096 , 172 , 162 , 096 , 173,069 
51504 : 1 78 , 096 , 016 , 010 , 032 , 01 8,142 

51 51 0 : 201 , 072,1 69 , 000,1 53,1 1 2,249 
51 51 6 : 096 , 104 , 1 53 , 000 , 096 , 1 73,1 70 

51 522 : 1 79 , 096 , 016 , 01 0 , 032 , 01 8,161 
51528 { 201 , 072 , 169 , 000 , 153 , 096,251 
51534 { 096 , 104 , 153 , 016 , 096 , 1 72,203 
51540 : 160 , 096 , 173 , 180 , 096 , 016, 037 
51 546 { 010 , 032, 01 8 , 201 , 072 , 169, 080 
51 552 { 000 , 153 , 1 12 , 096 , 104 , 1 53,202 
51 558 { 000 , 096 , 1 73 , 1 81 , 096 , 01 6 , 1 52 
51 564 { 010 , 032 , 01 8 , 201 , 072 , 169,098 
51 570 { 000 , 153 , 096 , 096 , 104 , 153,204 
51 576 { 016 , 096 , 173 , 032 , 064 , 240,229 
51 582 { 01 5 , 174 , 162 , 096 , 222 , 002,029 
51 58 8 : 208,1 74 , 160 , 096 , 254 , 002,002 
51 594 { 208 , 076 , 1 54 , 201 , 174 , 162,089 
51600 : 096 , 254 , 002 , 208 , 174 , 160,01 4 
51606 : 096 , 222 , 002 , 208 , 173 , 033,1 16 
51612 : 064 , 240 , 013 , 174 , 162 , 096, 137 

51 6 18 { 222 , 003 , 208 , 174 , 160 , 096,001 
51 624 : 254 , 003 , 208 , 096 , 1 74 , 162,041 
51 630 { 096 , 254 , 003 , 208 , 1 74 , 160, 045 
51 636 { 096 , 222 , 003 , 208 , 096,1 42,1 79 
51 642 : 085 , 064 , 140 , 087 , 064 , 169,027 
51648 : 000, 141 , 190,0 96,1 73 , 086,1 10 
51654 { 064 , 016 , 022 , 173 , 084 , 064,109 

51 660 { 032, 01 8, 201 , 1 41 , 084 , 064, 232 
51 666 {1 73 , 086 , 064 , 073 , 255 , 105,1 98 
51 672 { 000 , 141 , 086 , 064 , 032 , 009,036 
51678 {201 , 152 , 016,01 8,1 38 , 032,01 1 
516 84 : 01 8,201 ,141 , 085 , 064 , 152,121 
51690 { 073 , 255 , 105 , 000 , 141 , 087,127 

51 696 { 064 , 032 , 009 , 201 , 169 , 000,203 
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51 

702 

$141 

,194 

, 096 , 

ri 41 

,195 

, 096 , 

,085 

51 

708 

$162 

,016 

, 078 , 

,086 

,064 

, 110 , 

,000 

51 

714 

$084 

,064 

, 144 , 

,016 

» 1 73 

, 194 , 

,165 

51 

720 

$096 

,024 

, 109 , 

,085 

,064 

, 141 , 

,015 

51 

726 

$194 

,096 

, 173 , 

,195 

,096 

, 109 , 

,109 

51 

732 

$087 

,064 

, 074 , 

r 1 41 

#195 

# 096 , 

,165 

51 

738 

$110 

,194 

, 096 , 

,110 

,088 

# 064 , 

,176 

51 

744 

$110 

,089 

, 064 , 

,202 

,208 

# 216 , 

,153 

51 

750 

$173 

,190 

, 096 , 

,240 

,019 

# 173 , 

,161 

51 

756 

$088 

,064 

, 032 , 

,018 

,201 

# 141 , 

,076 

51 

762 

$088 

,064 

, 173 , 

,194 

,096 

, 073 , 

,226 

51 

768 

$255 

,105 

, 000 , 

,141 

#194 

, 096 , 

,079 

51 

774 

$172 

,194 

, 096 , 

,173 

,088 

, 064 , 

,081 

51 

780 

$096 

,032 

, 195 , 

,203 

,169 

, 000 , 

,251 

51 

786 

$141 

,005 

, 212 , 

,169 

,161 

# 141 , 

,135 

51 

792 

$006 

,212 

, 169 , 

,001 

#141 

, 024 , 

,121 

51 

798 

$212 

,169 

, 000 , 

,141 

,012 

, 212 , 

,064 

51 

804 

$169 

,161 

, 141 , 

,013 

,212 

# 160 , 

,180 

51 

810 

$000 

,162 

, 015 , 

,1 85 

,190 

, 202 , 

,084 

51 

816 

$141 

,000 

, 212 , 

,010 

#141 

, 014 , 

,110 

51 

822 

$21 2 

,185 

, 189 , 

,202 

,141 

,001 , 

,01 6 

51 

828 

$212 

,042 

, 141 , 

,015 

,212 

, 185 , 

,155 

51 

834 

$064 

,203 

, 010 , 

,141 

,007 

# 212 , 

,247 

51 

840 

$185 

,063 

, 203 , 

,042 

#141 

, 008 , 

,002 

51 

846 

$212 

,169 

, 019 , 

,1 41 

,004 

, 212 , 

,123 

51 

852 

$169 

,033 

, 141 , 

,011 

,212 

, 165 , 

,103 

51 

858 

$162 

,105 

, 010 , 

,197 

,162 

, 208 , 

,222 

51 

864 

$252 

,169 

, 017 , 

,141 

,004 

, 212 , 

,179 

51 

870 

$169 

,032 

, 141 , 

,011 

,212 

, 166 , 

,121 

51 

876 

$203 

,189 

, 129 , 

,235 

,201 

, 049 , 

,146 

51 

882 

$144 

,008 

, 201 , 

,052 

,176 

, 004 , 

,243 

51 

888 

$141 

,163 

, 096 , 

,096 

,200 

, 200 , 

,048 

51 

894 

$192 

,128 

, 208 , 

F 1 71 

,076 

# 069 , 

,002 

51 

900 

$202 

,026 

, 156 , 

,026 

,156 

, 022 , 

,008 

51 

906 

$096 

,022 

, 096 , 

,026 

,156 

, 026 , 

,104 

51 

912 

$156 

,022 

, 096 , 

,026 

,156 

# 026 , 

,170 

51 

918 

$156 

,022 

, 096 , 

,026 

,156 

, 029 , 

f 1 79 

51 

924 

$223 

,033 

, 135 , 

,029 

,223 

, 026 , 

,113 

51 

930 

$156 

,022 

, 096 , 

,019 

,239 

, 022 , 

,004 

51 

936 

$096 

,022 

, 096 , 

,016 

,195 

, 016 , 

f 1 53 

51 

942 

$195 

,016 

, 195 , 

,016 

,195 

, 016 , 

,095 

51 

948 

$195 

,016 

, 195 , 

,019 

,239 

, 022 , 

,154 

51 

954 

$096 

,016 

, 195 , 

,019 

,239 

, 022 , 

,061 

51 

960 

$096 

,022 

, 096 , 

,016 

,195 

, 019 , 

,180 

51 

966 

$239 

,019 

, 239 , 

,022 

,096 

, 014 , 

f 11 5 

51 

972 

$239 

,014 

, 239 , 

,014 

,239 

, 014 , 

,251 

51 

978 

$239 

,014 

, 239 , 

,014 

,239 

, 019 , 

,006 

51 

984 

$239 

,022 

, 096 , 

,016 

,195 

, 019 , 

,091 

51 

990 

$239 

,022 

, 096 , 

,022 

,096 

, 016 , 

,001 

51 

996 

$195 

,019 

, 239 , 

,019 

,239 

, 022 , 

,249 


52002 : 096 , 01 3 , 078 , 01 3 , 078 , 01 3 , 069 
52008 s 078 , 01 3 , 078 , 013 , 078 , 01 3,057 
52014 : 078 , 000 , 000 , 026 , 156 , 000,050 
52020 : 000 , 026 , 1 56 , 000 , 000 , 026,004 
52026 : 156 , 000 , 000 , 026 , 156 , 004, 144 
52032 : 1 12 , 004 , 112 , 005,1 52 / 005,198 
52038 : 152 , 005 , 152 , 005 , 152 , 003, 027 
52044 : 082 , 003 , 082 , 004 , 1 12 , 004,1 07 
52050 : 1 12 , 005 , 1 52 , 005 , 1 52 , 003,255 
52056 : 1 86 , 003 , 1 86 , 003 , 244 , 003,201 
52062 : 244 , 004 , 048 , 004 , 048 , 004,1 90 
52068 : 250 , 004 , 250 , 004 , 250 , 004,094 
52074 : 250 , 002 , 1 24 , 002 , 124 , 003,099 
52080 : 082 , 003 , 082 , 004 , 048 , 004, 079 
52086 : 048 , 003 , 082 , 003 , 082 , 003, 083 
52092 : 1 34 , 003 , 134 , 003 , 1 86 , 003,075 
52098 si 86 , 004 , 112 , 004 , 1 12 , 004,040 
521 04 s 1 1 2 , 004 , 1 1 2 , 002 , 1 24 , 002 , 236 
52110 si 24 , 003 , 1 86 , 003 , 1 86 , 004,1 36 
521 16 Sl 12 , 004 , 112 , 003 , 186 , 003, 056 
52122 si 86 , 003 , 244 , 003 , 244 , 004,070 
52128 : 048 , 004 , 048 , 004 , 250 , 004,006 
52134 : 250 , 004 , 250 , 004 , 250 , 002, 158 
52140 si 24 , 002 , 1 24 , 003 , 082 , 003,254 
52146 s 082 , 003 , 083 , 003 , 083 , 003, 179 
52152 si 87 , 003 , 1 87 , 004 , 048 , 004,1 OS 
52158 s 04 8 , 004 , 1 1 2 , 004 , 1 1 2 , 1 60 , 1 1 8 
52164 $ 023 , 169 , 000 , 153 , 000 , 212,241 
52170 $ 136 , 016 , 250 , 096 , 169 , 147,248 
52176 $ 032 , 210 , 255 , 169 , 001 , 141 ,248 
521 82 : 033 , 208 , 032 , 076 , 204 , 1 69 , 16 B 
52188 : 01 6, 141 , 162 , 005 , 169 , 012,213 
52194 : 141 , 165 , 005 , 169 , 160, 141 ,239 
52200 : 004 , 208 , 169 , 168 , 141 , 006,160 
52206 s 208 , 1 62 , 045 , 1 60 , 21 5 , 142,146 
52212 : 005 , 208 , 1 40 , 007 , 208 , 1 36,1 80 
52218 : 232 , 165 , 162 , 197 , 162 , 240, 128 
52224 : 252 , 224,1 31 , 208 , 238 , 162,191 
52230 : 01 3 , 160 , 013 , 024 , 032 , 240,232 
52236 : 255 , 169 , 174 , 160 , 204 . 0 ' 7,238 
52242 : 030 , 1 71 , 162 , 015 , 160 , 013,057 
52248 : 024 , 032 , 240 , 255 , 169 , 192, 168 
52254 si 60 , 204 , 032 , 030 , 171 , 162,021 
52260 : 01 7 , 160 , 01 3 , 024 , 032 , 240, 010 
52266 s 255 , 169 , 209 , 1 60 , 204 , 032,047 
52272 : 030 ,171 , 032 , 069 , 202 , 032,072 
52278 $ 195 , 203 , 173 , 163 , 096 , 201 ,061 
52284 : 051 , 208 , 001 , 000 , 073 , 048,185 
52290 : 240 , 244,201 , 003 , 176 , 240,146 
52296 : 1 41 , 058 , 099 , 096 , 169 , 009,132 
52302 $ 160 , 000 , 153 , 000 , 216 , 153,248 
52308 : 000 , 21 7 , 153 , 000 , 21 8 , 153, 057 
52314 $ 000 , 219 , 136 , 208 , 241 , 096,222 
52320 $ 060 , 1 26 , 255 , 255 , 255 , 255,022 
52326 3126 , 060 , 150 , 150 , 085 , 085,246 
52332 $ 150 , 150 , 000 , 000 , 128 , 000,024 
52338 $ 038 , 000 , 000 , 038 , 255 , 255,188 
52344 $ 255 , 248 , 240 , 224 , 224 , 224,255 
52350 $ 255 , 255 , 255 , 031 , 015 , 007,176 
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52356 :007, 007,224,224, 224, 240, 
52362 :248, 255, 255,255, 007, 007, 
52368 :007, 015, 031 ,255,255,255, 
52374 :153, 155, 153, 100, 153, 165, 
52380 :148, 174, 158, 174, 143, 183, 
52386 :153, 183, 163, 183, 000, 001 , 
52392 :002, 004, 005, 006, 012, 014, 
52398 :146,144,049,046,032,031, 
52404 :032, 079, 078, 069, 032, 080, 
52410 :076, 065, 089, 069, 082, 000, 
52416 :144, 050, 046, 032, 031 ,032, 
52422 :084, 087, 079, 032, 080, 076, 
52428 :065, 089, 069, 082, 000, 144, 
52434 :05ì ,046,032,028,083,084, 
52440 :079, 080, 032, 080, 076, 065, 
52446 :089, 073, 078, 071, 000, 018, 
52452 =031,080,076,065,089,069, 
52458 =082,032,049,000,080,076, 
52464 :065, 089, 069, 082, 032, 146, 
52470 :050, 000, 173, 058, 099, 201 , 
52476 :001 ,208,031 ,162,001 ,142, 
52482 :051 ,099,160,020,024,032, 
52488 ;240, 255, 238, 059, 099, 208, 
52494 :003, 238, 060, 099, 173, 060, 
52500 :099, 174, 059, 099, 032, 205, 
52506 :189, 076, 064, 205, 173, 001, 
52512 :088, 208, 005, 173, 164, 096, 
52518 :208, 024, 173, 048, 004, 073, 
52524 :128, 141 ,048,004,1 73,076, 
52530 :004, 073, 128, 141 ,076,004, 
52536 :173,051,099,073,001,141, 
52542 :051,099,096,162,014,094, 
52548 :000,096,094,016,096,202, 
52554 5016,247,096,005,018,032, 
52560 5032,032,032,032,032,032, 
52566 5032,032,032,032,032,032, 
52572 5032,032,032,032,032,032, 
52578 5032,032,032,032,032,032, 
52584 5032,032,032,032,032,032, 
52590 5032,032,032,032,032,032, 
52596 5032,032,032,000,005,018, 
52602 5032,032,032,032,032,032, 
52608 5032,032,032,032,029,029, 
52614 s029,029,029,029,029,029, 
52620 :029,029,029,029,029,029, 
52626 5029,029,029,032,032,032, 
52632 ;032,032,032,032,032,032, 
52638 5032,032,032,032,000,018, 
52644 5031,083,072,079,084,083, 
52650 5000,029,029,073,084,039, 
52656 s083,032,065,032,084,073, 
52662 5069,000,032,087,073,078, 
52668 5083,000,152,170,094,000, 
52674 :096,094,016,096,096,000, 
52680 5028,057,085,114,142,170, 
52686 5199,228,142,161,096,162, 
52692 5000,189,002,206,157,000, 
52698 5212,232,224,025,208,245, 
52704 :169,016,141,004,212,169, 
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52710 5128,141 ,01 1 ,212,169,016,139 
52716 s 141 ,018,212,169,017,141 ,166 
52722 5004,212,169,129,141 ,011 ,140 
52728 5212,169,017,141 ,018,212,249 
52734 s 174,161 ,096,096,100,007,120 
52740 5000, 000,01 6,036,000, 1 00,156 
52746 5003,000,000,129,016,000, 1 58 
52752 5 100,004,000,000,01 7,016,1 53 
52758 5000,000,000,000,015,162,1 99 
52764 5022,160,009,024,032,240,003 
52770 : 255,1 73,060,099,208,045,1 06 
52776 5173,059,099,201 ,009,1 76,245 
52782 5010,169,152,160,206,032,007 
52788 s030,171 ,076,161 ,192,201 ,115 
52794 s 01 2, 176, 01 0,1 69, 132,1 60, 20S 
52800 :206,032,030,171 ,076,161 ,228 
52806 5192,201 ,021 ,176,010,169,071 
52812 5113,160,206,032,030,171 ,020 
5281 8 s076,161 ,192,169,095,160,167 
52824 5206,032,030,171 ,076,161 ,252 
52830 :192,029,029,089,079,085,085 
52836 5039,082,069,032,065,032,163 
52842 5078,079,086,073,067,069,046 
52848 5000,029,089,079,085,039,177 
52854 :082,069,032,065,078,032,220 
52860 :065,077,065, 084, 069, 085, 057 
52866 5082,000,089,079,085,039,248 
52872 =082,069,032,065,032,080,240 
52878 =079,079,076,032,083,072,051 
52884 =065,082,075,000,029,029,172 
52890 =029,089,079,085,039,082,045 
52896 :069,032, 065, 032, 080, 082,008 
52902 :079,000,01 3, 01 6, 255, 255, 01 6 



034 

141 

194 

005 

112 

077 

211 

110 

038 

055 

01 5 

124 

141 

022 

116 

039 

126 

041 

211 

059 

029 

132 

083 

135 

176 

222 

254 

056 

102 

220 

082 

066 

060 

232 

016 

022 

028 

034 

040 

046 

235 

058 

058 

052 

058 

073 

088 

048 

084 

168 

033 

009 

175 

080 

028 

1 70 

254 

084 

167 
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(I libro apre nuovi orteonli a tutti 
loro che sono Interessati alla pro- 
grammazione in linguaggio macchina 
3cd COMK 

ùm camita 

Coi. 572 D Psq. 208 Un 29,000 


CBwPrigmom 

IL BASIC IH 30 ORE 
PER SPEGTRUM 

Guasto semplice corso di autolstro- 
coro insegna a programmare, e un 
programma ha sempre bisogno di 
due Ingredienti, un linguaggio e una 
strutture: dunque questo fibre non 
msegna solo lì BASIC, ma anche co- 
me si organizza correttamente un 
buon programma. 

Coi, 6018 Pag. 360 Un 40,000 


Ai 

DELLO SPE 
Applicazioni avai^ 

Un esame attento del listati consenti- 
rà al lettore di apprendere i 'segreti' 
della programmazione strutturata e 
migliorare notevolmente le proprie 
capacità di programmatore. 

! programmi presentati vanno dagli 
arcade più famosi, tre cui il celebre 
*$pectrum Invadere* ai programmi di 
utititì più interessanti, dai giochi 
d azzardo ai programmi didattici, dai 
programmi funzionali a quelli di mar 
tematica e di giochi ci strategia. 

ta cesatili ^ ^ untt.* 


- La biblioteca che fa testo. 


RtxÈìayZBkS 

IL TUO PRIMO 
PROGRAMMA IN BASIC 

La diffusione del BASIC per la sua 
semplicità e quasi "naturalezza' di 
programmazione fa sì che una cultu- 
ra generale sull'Informatica e la sua 
applicazione non puù prescindere da 
una conoscenza di frase di questo 
linguaggio. Questo lo scopo del li- 
bra: permettere anche a chi ha sol- 
tanto una cultura di frase, dì capire 
che cos'à II BASIC e come si usa. 
Coti. 5G7B Pag. 216 Un 19.600 

Caos Ko&fiiowstd 

MATEMATICA E 
COMMODORE 64 

Tutte le funzioni matematiche dispo- 
nibili sul C64 sono qui descritte, ed il 
toro uso è Illustrato con programmi 
che possono essere utilizzati dal let- 
tore all'Interno del suoi, per partico- 
lari applicazioni. 

Il lifrro contiene anche informazioni e 
programmi su altri argomenti, come 
codici e la crittografia, 1 numeri ca- 
suali le serie, la trigonometria, I nu- 
meri primi e l'analisi statistica dei 
dati. 

Con emetta 

Coi. 5700 Pag . ISO Ore 24.000 


Mike Qmca 

ADVENTURE E 
COMMODORE 64 

Un manuale per ideare e utilizzare 
programmi di Adventure basati 
esclusivamente sul testo. 

Una progettazione modulare del pro- 
gramma rende più, facile la compren- 
sione della struttura. Labilità nella 
programmazione avrà modo di emer- 
gere durante la costruzione graduale 
dell' Avventure, per modificare il pro- 
gramma dimostrativo, o addirittura 
per costruirne uno nuovo. 

Coi. 5710 Pag. 240 Un 36.000 

nfm DQfmfN 

COMMODORE 16 
PER TE: BASIC 3.5 

È un libro di introduzione al BASIC 
€16 con II classico buio didattico 
Bonetti, Adatto per la scuola media 
inferiore e per chi non conosce lìn- 
f ormato. 

la cassetta allegala ai Hbro contiene 
diveree lezioni, una per ogni capito- 
lo, che devono essere lette prima dei 
capriolo relativo. 

Coi 413$ Pag. 296 Un 35,000 
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trad. ed adatt. 
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la fioco, «tediato par 

«•«citali I baabiii e«l calcolo 
•ritoatico, «olo rìtpoadtado 
cofiittaa«Bt« al rlaaclrà i far 
atterrar# mio a «alvo u panca* 
datiata laadatoal «la u a areo. 

S I dispone di cinque possibilità per 
indovinare un numero, scelto dal 
computer, compreso tra 3 e 100, Per 
ogni risposta sbagliata il computer forni' 
sce un piccolo aiuto nella ricerca del nu- 
mero. 

Questo aiuto pud consistere in un nume* 
ro Indicante quante volte il numero Inse* 
rito è più grande o più piccolo di quello 
scelto dal computer. Ad esempio, se 11 
numero corretto è 75, e si inserisce 11 
numero 15, tl computer risponderà *5 
volte troppo basso". Tuttavia, se il nu- 
mero che inserite differisce da quello 
scelto da) computer solo per un fattore 
2 (o minore), verrà semplicemente vi- 
sualizzato Il messaggio "troppo alto” o 
"troppo basso h t a seconda del casi. 

Se si indovina il numero generato dal 
computer entro l cinque tentativi, si po- 
trà vedere il paracadutista discendere 
verso terra e compiere un atterraggio 
perfetto. Se Invece non si riesce a rag* 
giungere l h obb Seti Ivo, Li paracadutista 
farà un bel tuffo nell'acqua del lago. 

Se si desidera modificare il numero del 
tentativi disponìbili, è possibile, nella 
versione per C64, modificare U 5 In li- 
nea 250 e IL valore dì TN (™6) In linea 
500. Questo 6 Indica infatti che il valore 
dì TN, la variabile che conteggia L tenta- 
tivi, ha oltrepassato II valore limite di 5. 

Nella versione per VIC 20 si pud modifi- 
care W 5 in linea 170 ed il valore di TN 
bt linea 380. 

Nttabtr Qiaat versione per VIC 2# 


10 FRI UT" fCLR } { Il G10 1 } { 5 DES ) ATTENDERE 
• * * t rem 9 

20 POKE55 , 0 : POKE56 * 2 6 : CLR tram 220 

30 B-71683CB-25600;PORJ-0TO51 I iPOKBB+J f FE 
EK {B+J+CB ) : NEXTJ tram ì 75 

40 FORI «21 6TO 2 5 5 ; READ At ; POKEB+X , A l e NEXTI : 
FORI ■ 2 BOTO 2 9 5 3 READ Al : POKEB+ 1 ,K\: NEXTI ; 
PRINT"(CLR) M tram 41 


50 POKE36869 « 240 : SC«36879 : POKZSC ,2 33 

tt*m 71 

60 PRIKTSPC ( 89) " ( BLK } { 2 SPAZI) 1<H>)H 

t< 2 G>] |< 2 H> ] HH [ <G>] 0 [<G> 1 0 0[7 g> 1* 

Tram 114 

70 FRlfifT* { 3 SPAZI )(<M>] |<G>]L§[<M>1 
{ 2 SPAZI) I <G> 10 [<G>1£ OKGTT" 

tram 13 

80 PRI HTTAB (12)" [ <T> ] 1<T>] * ir am 10 

90 PRINT" [RED ] [ 5 SPAZI)0P |<G>] I<H>J 0 
0 PO" tram T26 
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100 

PRINT" { 5 SPAZI }Let<?>l Lg 

O P t <M> ] 


[<6>J " 

tre® 

20 

no 

PRINTTAB (1 1 ) " [<T>] [<T>] " 

tre® 

51 

120 

V- 36878 s F2-3687 5:POKEV, 1 5 

tre® 

131 

130 

READA% : IFA%-~ 1 THEN1 50 

trem 

58 

140 

POKBF2,At ì FORT-1 TODI !NEXTT:GO TOl 30 



tre® 

145 

150 

POKEV, 0(POKEF2,0 

tre® 

180 

160 

FORT- 1 TOl 00 0 : NEXTT 

tre® 

113 


1 70 PRINT" {CLR} * : POKESC , 26 ; PRINT" {BLK} HAI 
{REO} 5 { BLK } POSSIBILITÀ 1 " trem 71 
180 PRI NT : PRI NT 11 PER INDOVINARE UN 

{ 5 SPAZI} NUMERO” :rera 128 

190 PR1NT:PRINT"{BLK}DA { RED } 1 0 {BLK} A 
{^□>1 00”: FORT-1 TO4Q00: NEXTT: re® 89 
200 PRINT" {CLR}": POKESC, 27 :TN-1 :POKE36869 
,255 : rem 21 

210 FRINTSPCC 46) "{BLU} INDOVINA IL NUMERO" 

tre® 231 

220 PRINT; PRINT: PRINTTAB (14)" {BLK} [£”:?RX 
NT” { 12 GIU 1 } " t PRINTTAB (IO)” { BLK) } " 

tre® 31 

230 PRINT” {BLK}] ] 11 1 li 3 3 3 ] 11 1 11 {BLU} U 

{BLK}]]] J"? SPRINT”])"; tre® 224 

240 PRINT"] ] )] 3 ] ] ] ] ] 1 I] 3 ] 3 ì ) } "tPOKESl 63,2 
9 : POKE38883 , 0 ;rem 243 

250 FORN-0TO21 :POKE8l 64+N, 29: POKE38884+N , 
0 : NEXTN tre® 159 

260 PRINT” { 16 SU}" tre® 121 

270 R-INT(RND{1 1*90410) tre® 233 

280 PRINT” {BLK} PROVA N {RED} * ;TN: PRINT 

tre® 62 

290 S$-""t INPUT" { RED H 3 SPAZI}",*S$ 

trem 111 

300 S-VAL(SO) : IFS < 1 ORS> 1 OOTHENGOSUB5 7 0 

tre® 101 

310 FORU-lTOLEN(S$) :UQ-A5C(MID$ (se,U,l ) ) 

tre® 113 

320 IFUQ<480RUQ>57THENU-LBN{S$) :NEXT:GQSU 
B57QSG0T028Q tre® 167 

330 NEXT tre® 213 

340 IFS>2THEN370 tre® 178 

350 PRINT" DA 3 A 1001 { 3 SPAZ I } " j : FORT-O 
TOl 000 : NEXT trem 14 

360 PRINT" { 15 SIN} { 15 SPAZI) { 2 SU}":GO 

TO290 ;rem 205 

370 IFS-RTHEN650 : rem 21 3 

380 TN-TN+l ;IFTN*6THEN41 0 ; rem 26 

390 I F5> RTHEN4 9 0 srem 218 

400 IFS<RTHEN510 :rem 201 

410 POKEV ,15: FORM" 2 2 OTO 1 90STEP- 1 :POKEF2,K 
ì FORT* 1 TO 2 0 : NEXTT : NEXTM: POKEF2 , 0 : POKE 
V, 0 ; rem 239 

420 F-l 4:GOSUB58O:POKEX,36:POK£CX,6:F0KBX 
422,30: POKECX+22 , 6 trem 111 

430 POKE36877, 22 0 ; FORL- 1 5T05STEF-1 1 POKEV, 
L: FORM=l TOSO :rem 50 

440 NEXTM: NEXTLt POKB36877 , 0 : POKEV, 0 

tre® 216 

450 PRINT" {CLR } " : POKESC ,216: PRI NTS PC [ 1 5 7 ) 
"{BLK} HAI PERSO! ! I { 4 SPAZI}" 

trem 238 

460 PRINTSPC{46) "IL NUMERO ERA: { RED } ” ? R 

tre® 50 

470 PRINT; FORT-1 TOl 000: NEXTT trem 60 

480 GOTO700 tre® 108 

490 D-INT ( S/R) tDS-^ALTO" : IFD<«1 THBN560 

tre® 2 

500 GOTO520 trem 101 

510 D-INT (R/S) : D$-" BASSO ,f :IFD<«lTHEN560 

t re® 67 

520 PRINT" {RED} *;D;"{BLK} VOLTE 

{ 5 SPAZI}";" {RED} ";D$ tre® 218 


530 POKEV, 1 5 t FORM- 2 5 OTO 1 8QSTEP- 1 t POKEF2 , M 
i NEXTM ; FORT- 1 T0 1 000 : NEXT t POKEV , 0 

tre® 194 

540 PRINT" { 2 SU}{ 10 SPAZI}" trem 140 
550 PRINT" { 21 SPAZI }”: PRI NT" { 5 SU}":GGT 
0280 tre® 88 

560 PRINT" {RED }{ 5 SPAZ I } " ; " {BLU } " ; D$ : POR 
T- 1 TQ4 00 : NEXT: GOTO530 trem 103 

570 PRINT" {RED} DA 1 A 100 " ; FORT-1 T0800 : 
NEXTT: PRINT" {SU} { 11 SPAZ I }": PRINT" 

{ 5 SU ) " t GOTO280 trem 133 

580 X-7680+ (5*22) +1 7:CX-X-30720 : Z-7680+ {5 
*22) +1 5tCZ-2+3072G trem 117 

590 FORN* 1 TOP; POKEZ , 32 : POKE2 + 1 ,32:POKEX,3 
2 ; POKEX+22 ,32 :rem 107 

600 POKEZ- 1 , 27:FOKECZ-l , Q : PGKEZ , 2 S : PQKECZ 
,0 tre® 141 

610 POKEX+22,31 : POKECX+22 , G : PQKEX+44 , 3 5 : ? 

OKECX+44,0 tre® 7 

620 2-Z-1 :CZ»CZ-1 :X*X+22 : CX-CX+22 : NEXTN : R 
ETUHN tre® 201 

630 BL-36865 J FORN* 1 T06 : FOKEBL, 1 35 s FORT* 1 T 
OSO: NEXTT tre® 15* 

640 POKE3L , 2 5 : FORT- 1 T04 0 : NEXTT : NEXTN : RETU 
RN tre® 130 

650 GOSUB630 : P* 5 : GOSUB580 ; FORN* 1 T07 

tre® 190 

660 POKEX ,32; POKEX+2 2 , 3 2 tre® 149 

670 POKEX+21,31 tPOKECX+21 , 0 t POKEX+43 , 35 i P 
OKECX+43 , 0 ;X*X+21 tCX-CX+21 t NEXTN 

trem 192 

680 POKEV, 1 5:FORL-l 30TQ240 i POKEF2 , L: NBXTL 
t POKEV, 0: FORT-1 TOl 000: NEXTT : rem 121 

690 PRINT" {CLR} ” t POKESC , 26 : PRI NTS PC (1 57 ) ” 
CONGRATULAZIONI ":PRINTSPC{ 69) "HAI IND 
OVINATO i " trem 141 

700 FORT-1 T02000: NEXTT: GOTO200 trem 119 

710 DATA 255,1 ,1 ,1 ,127,255,255,127,255,0, 
0,3,3,255,255,0 tre® 171 

720 DATA 255, 255, 255, 255,255, 255, 255,255, 
170,170,255,255,255,255,255,255 

; r em 255 

730 DATA 60,126,255,255,129,66,36,24,16,1 
8,60,88,40,36 :re® 113 

735 DATA 66,0,17,130,68,37,6,148,93,126 

trem 141 

740 DATA 231,200,235,450,231,200,232,200, 
235,200,232,200,231 ,200,235, 500, -T , ~ 1 

trem 131 
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Number Quest vertione pet C64 

10 PRINT" £CLR}{ 10 DESJt 12 GIU 1 } " J n ATTEN 
DERE PREGO # * * " trem 213 

20 POKE 56,48: CLR : K=1 2288:PC s 56334: CP = 5327 
2 trera 146 

30 IF PEEK (1 2 280) +PEEK £12289) 3 1 62THEN60 

trem 127 

4 0 PO KEPC , PEEK ( PC ) AND 2 5 4 : POKEl , PEEK ( 1 ) AND 
251 trem 161 

50 FOR J = 0 T04 0 9 5 : PGK EK+ J , PEE K { 5 3 2 4 8+ J ) :NEX 
TJ : rem 1 2 9 

60 FORI *2 1 6T02 55 : READA% : POKEK+I ,A%:NEXTI: 
FOR 1*2 8 0TO2 9 5 : READ A% ; POKBK+ I r A % : NEXT I 

ì rem 1 59 

70 POKEl ,PEEK(1 ) GR4 : PGKEFC , PEEK ( PC ) ORI 

: r em 114 

80 POKECP,21 ì BC* 532 80 : BK» 532 81 :POKEBC,2:P 
OKEBK , 1 : PRINT" {CLR} " trem 2 51 

90 PRI NTS PC { 9 0 ) * {BLK } { 2 SPAZI } [<M>]M 

l< 2 G>1 [< 2 M>}MN[<G>}0 [<G>]0 G[<G>] " 

trem 109 

100 PRINT" { 12 SPAZI) [<M>] [<G>]L@[<M>3 

{ 2 SPAZI } [<G>]0[<G>]0 0[<G>T ir 

:rem 55 

110 PRINTTAB ( 2 1 ) " [ <Y> ) [<Y >] " :rem 92 

120 PR I NT : PR I NT" { RED ] { 13 SPAZI }OP [<G>] 
[<M>] O O PO 1 ' : rem 111 

130 PRINT"! 13 SPAZI }L£E<F>] L£ 0 P [<M>] 

[ <G> 1 " trem 23 

140 PRINTTAB (19)" [ < Y> ) [<Y>)" trem 102 

150 PRINTSPC (1 36) u {BLU) PREMI Fi " : rem 75 

1 60 V= 5427 2 ; FORSL-VTOV+24 ; POKESL, 0 : NEXT 

trem 232 

1 70 FOKEV+5 ,88: POKEV+4 r 3 3 : POKEV+24 ,1 43 : PO 



KEV+6,1 95 

: rem 

200 

1 80 

READLP , HF , DR: IFLF=- 1 THEK200 

: rem 

122 

1 90 

POKEV,LF; POKEV+1 , HF : F0RT= 1 TODR : NEXTT : 


GOTO! 80 

: rem 

167 

200 

POKEV,0: POKEV+1 , 0 t POKEV+2 4 , 0 

: rem 

150 

210 

GETA$ : I F AS = " w THEN2 1 0 

: rem 

73 

220 

I F A$ -CHRS (133) THEN2 4 0 

: rem 

115 

230 

GOT021 0 

trem 

97 


240 PRI NT" { CLR } n : POKEBC , 7 : POKEBK , 1 5 

trem 211 

250 PRINTSPC (21 1 )" {BLK) DISPONI DI {RED} 5 
{BLK) TENTATIVI " ; FRINTSPC ( 51 ) " PER INO 
OVINARE UN" trem 32 

260 PRINTSPC (51 } " {BLK} NUMERO TRA 

{ 2 SPAZ I } { RED } 3 { BLK } E (RED } 1 OD” : PRI 



NTSPC ( 21 1 ) " { BLU } PREMI Fi" 

: r em 

13 

270 

GETA$ : I FA$ = " " THEN2 7 0 

: rem 

85 

280 

IFA$*CHR$ O 33) THEN30 0 

: rem 

118 

290 

GOT027G 

: rem 

109 


300 PRINT" {CLR }":POKEBC, 6 : POKEBK,! :TN*Ì ;P 
OKECP, (PEEK(CP) AND 24 Q ) +1 2 :rem 93 
310 PRINTSPC ( 92 ) "{BLU} INDOVINA IL NUMERO" 

t rem 233 

320 PRI NT: PRINTTAB ( 24 ) " {BLK} [£": PRINT" 

{ 12 GIU 1 } " : PRINTTAB ( 39 ) ” { BLK } 3 11 

: rem 99 

330 PRINT" {BLK} ) ) ] ] 1 ] 1 1 ] 1 I ] 1 3 ] ] 1 ] J 1) ] ) 1 ) 


390 R*INT(RND(1) *90+10} : rem 236 

400 PRINT" {BLK }TENTATIVO: " f " (RED } " ; TN : PR 
INT :rem 44 

410 PRINT" { 5 SPAZI}"; trem 161 

420 S$» " " : INPUTS$ : S-VAL {S$ ) : IFS<l0RS>l OOT 
HENGOSUB690; PRINT" (GIU 1 } " f : GOT04 00 

: r em 60 

430 FGRU“Ì TQLEN (S$ ) : UT*ASC (MID$ (S$ , U , 1 ) ) 

trem 119 

440 IFUTC4aORUT>57TH£NO=LEN(S$ì :GOSUB690: 

NEXT: PRINT" (GlU r }" f ;GOT0400 trem 4 
450 NEXT : rem 21 6 

460 IFS>2THEN490 : rem 184 

470 PRINT" {BLK} { 2 SPAZI }DA 3 A 1 00 

{ 5 SPAZI}": FOR T=0TOl 000 : NEXT: PRINT" 
(SU){ 18 SPAZI} [ 2 SU} {RED}" : rem 31 
4 00 GOTO 410 trem 106 

490 IFS*RTHEN7S0 trem 220 

500 TN»TN+! : I FTN-6THEN530 :rem 23 

510 IFS>RTHEN610 trem 206 

520 IFSCRTHEN630 trem 207 

530 POKEV+24, 1 43: FQRM-60T030STEP- 2 ; POKEV, 
INT (M/3) ; PGKEV+1 , M : FORT* 1 TOl 0 : NEXTT 

trem 66 

540 NEXTM: POKEV+24, 0 : rem 209 

550 p*1 4tGOSUB71 0 : POKEX , 36 : POKECX , 6 : POKEX 
+40 , 30 : F0KECX+40, 6 ; rem 110 

560 FORMAI 25T01 5STEP- 5 : PGKBV+24 ,M: FORT» 1 T 
O 2 0 : NEXTT : NEXTM : POKEV+24 , 0 : rem 59 

570 PRINT" {CLR} " : POKESC ,216: PRINTSPC (210) 
"{BLK} SPIACENTE, HAI PERSO" trem 76 
5 B0 PRINTSPC (130) "IL NUMERO ERA {RED } ";R 

:rem 37 

590 PRINT" {BLK} {GIU 1 }AVRAI MIGLIOR FORTUN 
A LA PROSSIMA VOLTA" : FORU® 1 TQ 1 2 0 0 : NEX 
TU trem 78 

600 GOTO850 trem 1 08 

610 D»INT (S/R) t ■ " ALTO ” : I FD< “ 1 THEN6 8 0 

trem 255 

620 GOTO640 trem 107 

630 D = INT(R/S) : D$*" BASSO" : IFD< »1 THEN680 

: rem 73 

640 PRINT" {RED} " ; D; " {BLK } VOLTE TROPPO "; 

" £ RED } " ; D $ trem 193 

650 POKEV+24, 1 43: FORM» 50TO0STEP-1 :POKEV,I 
NT ( M/ 2 ) : POKEV+1 ,M: NEXTM trem 33 

660 FORT» 1 TQ 6 0 0 : NEXT : POKEV+ 2 4,0 : rem 163 

670 PRINT" {SU } { 23 SPAZI PRINT" { 5 SU} 

" : GOTO40O trem 230 

680 PRINT" {RED} TROPPO " BLU }”; D $ : FORT» 
1 TO40 0 : NEXTt GOTO650 trem 81 

690 PRINT" {RED) { 3 SPAZI) PROVA 3-100 
{ 2 SPAZ I } " : FORT» 1 TG 8 0 0 : NEXTT 

: r em 240 

700 PRINT" (SU H 14 SPAZI f": PRINT" { 5 SU} 
"ft RETURN trem 46 

710 X = 1 024+ (5*40) +26: CX=X+54 272: 3*1024+ (5 
*40) +24:CZ*Z+54272 trem 100 

720 FORN= 1 TOP : POKEZ ,32: POKEZ+1 ,32: POKEX, 3 
2 : FOKEX+40 ,32 : rem 102 

730 POKEZ- 1 , 27 : POKECZ- 1,0; POKEZ ,28: FOKECZ 
,0 : r em 1 4 5 


i blu j 1 1 1 1 1 blk } ]])]]]]]] n mi mi n n 
mimi"; :Eeni 

340 FORT* 1 T02 trem 21 

350 PRINT" {BLK} } 1) 1 )] ] 1 1 ] 1 1 ì 1 lì 1 3 ] ) J ] 1 3 3 ] 

] i ni m min mi n i n i ni i n i ni n* 

- : rem 186 

360 NEXT ^ 6 

370 FORN“0TO40: POKEl 98 3+N , 29 : POKE5625 5+N f 
0 : NEXTN 157 

380 PRINT" { 15 SU}" trem 235 


740 POKEX+40, 31 : POKECX+4Q , 2 : POKEX+80 , 35 : P 
OKECX+80,0 : rem 13 

750 Z»Z-1 :CZ=CZ-1 :X*X+40:CX»CX+40: NEXTN: R 
eturn trem 205 

760 BL=53265:FORN-l T06;POKEBL, PEEK £BL) AND 
239: FORT*! TOSO: NEXTT trem 115 

770 PO KEBL , PEEK ( BL ) ORI 6 : FORT* 1 TO 4 0 ; NEXTT t 
NEXTN : RETU RN ;rem 43 

780 GOSUB760 tp*5tGOSUB71 0:FORN»lTO7 

;rem 193 
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690 DATA 60, 126, 255,255, 129, 66,36, 24, 16,1 
8,60 sten» 183 

900 DATA 88,40,36,66,0,17,130,68,37,6,148 
,93,126 tee» 72 

910 DATA 31,21,200,30,25,450,31,21,200,96 
,22,200,30,25,200,96,22,200,31 ,21 ,200 

irera 184 

920 DATA 30,25,500,-1 ,-l ,-1 Stein 10 


790 POKEX, 32 : POKEX+40 ,32 itera 153 

800 POKEX+39, 31 : POKECX+39» 2: POKEX+79 , 35:P 
OKBCX+79 , 0 s X-X+39 :CX-CX+39 : NEXTN 

i reo 243 

810 POKBV+24 » 1 43 : FORM" 30T060 ; POKEV , I NT IH/ 
2) : PO REV+ 1 ,M: FORT“1 TOl 0 s NEXTT: NEXTM 

itera 109 

820 PQKEV424 , 0 s POKEV, 0 : POKEV+ 1 ,0:rem 158 
B30 PRINT"{CLRj"sPOKEBC,2:POKEBK,l SPRINT: 
PR I NT: PR INTS PC ( 1 3 0 ) " 1 BLK } * «CONGRATULA 
2IONI**" item 179 

840 PRI NTSPC { 1 7 3 1 " { RED } HA I INDOVINATO" 

srem 40 

850 PRINTSPC(1911 ; srem 55 

860 FORQ “1 TOl 000 : NEXTi TN"1 : GOTO300 

tre» 113 

870 DATA 255,1,1,1,127,255,255,127,255,0, 
0,3,3,255,255,0 :rem 178 

8B0 DATA 255,255,255,255,255,255,255,255, 
170,170,255,255,255,255,255,255 

stesi 6 
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di J. WoKvrtoB 

trad. ed adatta 

di M, Crietvlb Grilli 


Il vostro jtt coopti ni rapida 
cabrata par a vi tara 1] Bissila, 
9«ladl asagaa sai vsloca pic- 
chiata. NalU da fin, lo avata 
sampra la coda, aoa potata avi- 
tara do Bissila faldato dal colo- 
ra dal vostri Motori! Ecco aa ve- 
loce gioco d ‘azione par II VIC 20 
In aspa n so ad 11 Ctil 


I missili termoguìdatì sono molto peri* 
colo*]: rilevano i! calore generato dal 
motori degli aerei e puntano su di essi, 
seguendoli In tutte le loro manovre di 
sganciamento fino a che non raggiungo- 
no 11 bersaglio, essendo più veloci dei 
jet stessi. 

Il vostro compito: distruggere la base 
dei missili termoguìdatì. E abbastanza 
facile colpire i missili a terra, ma, una 
volta lanciati, dovrete prodigarvi In ma- 
novre evasive per liberarvene. Come se 
non bastasse, li cielo è pieno di mine ae- 
ree,,. 

Pilotare U jet 

Il vostro jet è controllato dal Joystick: 
come una cloche di aereo, se Io tirate 
verso voi, l'aereo riprende quota, men- 
tre se lo spostate in avanti, l'aereo ese- 
gue una picchiata. Il jet si muove a velo- 
cità costante - non è possibile accelera- 
re o rallentare - e con il pulsante di 
fuoco potete lanciare un missile contro 
1 vostri obbiettivi sul terreno. 

Nella versione per VIC 20 potete inol- 
tre sparare contro 11 missile termogulda- 
to che vi segue e potete sparare contro 
[e mine aeree che vi bloccano La strada, 

È anche possibile sparare accidental- 
mente contro se stessi. 

Disponete di otto jet, e potete fermare 
il gioco In qualsiasi momento premendo 
5HIFT IOCK. 

Nota alla varato»* par C44 

Il jet ed i missili termoguìdatì sono degli 
5PRITE, dotati quindi di movimento pi- 
xel per pixel. Potete sparare contro i 
missili a terra, ma non potete sparare 
contro 1 missili che vi Inseguono; essi 



sono Infatti dotati di un circuito 1EE {lm- 
proved Electronic Evaslon) che li rende 
rancamente impossibili da colpire, 
'unico modo per neutralizzare un mis- 
sile inseguitore è manovrare In modo 
da farlo schiantare sul terreno, ese- 
guendo una picchiata e riprendendo 
l’aereo al l'ultimo secondo prima che si 
sfasci al suolo. I missili termoguìdatì so- 
no Infatti molto veloci, ma non hanno 
capacità di manovra rapida. 

Al contrario della versione per WC 20, 
non vi può capitare di sparare contro 
voi stessi e non ti sono mine ad ostaco- 
lare le manovre. Se 11 vostro jet viene 
distrutto, riappaiono tutti l missili a ter- 


ra (al contrario della versione per VIC 
20, che mantiene il numero del missili 
distrutti). 

Si può giocare anche In due, In modo 
non competitivo: I due giocatori pilota- 
no il Jet a turno, cercando di ottenere 
un punteggio migliore di quello deLL’av- 
versario. Il programma legge entrambe 
le porte joystick, quindi il giocatore cor- 
rentemente “Inattivo" non dovrà tocca- 
re il proprio joystick, ai fine di evitare 
Interferenze. 

Esistono tre livelli di difficoltà: novizio, 
Intermedio ed esperto, ed un bonus di 
dieci punti viene regalato ogni pochi se- 
condi mentre si è in volo, solo perché 


SO SUTOÌCOmiODCK* 


si riesce a rimanere In aria. 

Ittriilail speciali 

Per II C64, se si dispone della cassetta 
allegata alla rivista, è sufficiente posizio- 
narsi con il nastro in corrispondenza del- 
l'inizio del programma e digitare: 

LO AD 

Il programma andrà quindi mandato in 
esecuzione digitando: 

RUN 

Ricordiamo che per conoscere il punto 
esatto di inizio dei vari programmi su 
cassetta è sufficiente inserire questuiti- 
ma completamente Ravvolta nel regi- 
stratore, azzerare 11 cont anastro e digi- 
tare: 


LOAD“*" 

Dal momento che sicuramente non esi- 
ste sulla cassetta alcun programma di 
nome “*" f il computer passerà in rasse 
gna tutti i programmi Incontrati, visua- 
lizzandone il nome con il messaggio: 

FOUND XXXX 

Sarà quindi utile annotarsi su un foglio 
ì nomi dei programmi e la relativa posi- 
zione del contanastro [sottrarre tre o 
quattro unità dal valore corrispondente 
al l'apparizione del messaggio 
F0UND.4, 

Qì abbonati alla sola rivista dovranno 
invece usare il programma MLX [vede- 
re nelle pagine verdi) per digitare II lista- 
to In Linguaggio macchina. La procedu- 
ra da seguire, in questo caso, è: 


1. Spegnere e riaccendere il computer 
e digitare in modo diretto le seguenti 
istruzioni: 

POKE642,32:SYS58260 

2. Caricare in memoria MLX {che sarà 
stato precedentemente digitato e salva- 
to), e rispondere alle sue richieste circa 
gli indirizzi iniziale e finale con: 

indirizzo iniziale: 2049 
indirizzo finale: 6470 

Dopo avere digitato e salvato il pro- 
gramma tramite MLX si potranno segui- 
re per il caricamento le istruzioni date 
IO sopra per ] possessori di cassetta, 
a versione per VIC 20 va invece cari- 
cata od eventualmente digitata come 
un qualsiasi programma BASIC. 


H«at seekcr pmr VIC 20 


100 

GOTO 500 

: rem 

95 

HO 

GOSUB650 : IFPEEK (653) -iTHENl 1 0 




: rem 

185 

120 

FORR-0TO7: J-PEEK { 371 37 ) AND4 4 : 1 FJ< >4 4T 


HEN380 

;rem 

73 

130 

IFC-7679THEN1 80 

; rem 

72 

140 

POKEC ,32 :C-C+C 1 

: rem 

52 

150 

IFOB1 630RC<7724THENC-7679: 

GOTOl 80 



; rem 

4 

160 

GE-PEEK (C) : IFGE< >3 2THEN4 50 

: rem 

21 

1 70 

POKEC, G 

: r em 

1 25 

180 

I FR- 20RR- 6 THENNEXT : GOTO 1 1 0 

:rem 

194 

190 

POKEB, 3 2 

: r em 

156 

200 

B-B+D (Bl ) : IFB-ATHEN3Q0 

: rem 

209 

210 

IFPEEK (B) -1 60RB<7724THEN3l- 

Bl +4+(Bl >4 


) *8:GOTO200 

: rem 

234 

220 

IFPEEK (B) «0THEN430 

: rem 

14 


230 POKEB ,17:IFR”I NT ( R/ 2 ) *2then260 

: rem 4 

240 Y-I»T(D (Bl )/21+.5) ìX-D(Bl) -22*Y 

:rem 123 

250 V® INT ( ( A- B) /2 1 + * 5 ) s H- A~ B- V* 22 : Ri -Bl +S 
GN(X*V-Y*H) :Bl -Bl + ( (Bl >8) - {Bl <1 ) ) *0 

; r em 107 

260 lFR-0THENNEXT:GOTOl 1 0 ; rem 89 

270 POKEA , 32 : A-A+D ( Al ) ; IFPEEK (A) 032THEN3 
00 : rem 230 

280 IFA<7724THENA1 -Al+4+8* {Al >4) :GOTO270 

: r em 24 7 

290 POKEA , A 1 4-7 : NEXT : GOTO 110 :rem 137 

300 AE-PEEK (A) ; POKEA, 1 8 : GOSUB620 : POKEB , 3 2 
: POKEC, 32: IFA<81 6 4THENPO KE A , 3 2 : GOTO 3 2 
0 :rem 104 

310 POKEA ,16 : rem 151 

320 IFAE-OTHENK-K+I : IFK- 11 THEN56Q 

: rem 242 

330 L-L-l ;IFL>OTHEN600 ;rem 17 

340 GOSUB 6 5 0 : PO KE 1 98 , 0 : PRI NT" { HOME 1 

{ 10 GIU'H 3 DES) (RVSl GIOCHI ANCORA? 



(S/N } n 

: rem 

17 

350 

GETA$ : XFA$«**S "THBN50Q 

: r em 

163 

360 

I F AS - "M" THENS YS 5 8 64 8 ; END 

: rem 

170 

370 

GOTO350 

: rem 

107 

380 

IF(JAND8) -OTHENAi-Al -1-6* (Al 

-1} 

: rem 

171 

390 

IF ( JAND4) -QTHENAl -Al +1 +8* (Al 

-9) 

: rem 

171 

400 

IFJAND32THEN1 30 

: rem 

104 


410 POKEC, 32 :C1 -D (Al ) :C«A+C1 +C1 :G=Al : IFG» 
0THENG-4 : rem 95 

4 20 POKEVO,1 5:POKES2, 1 90 : POKES4 , 1 80: FORT* 
1 TO 2 0 : NEXT ; POK EVO , 0 ; GOTO 150 :rem 57 
430 SC-SC+50 : K-K+ 1 ; I FK- 1 1 THEN560 : rem 118 
440 POKEB, 1 B:GOSUB620:GOTO230 :rem 248 
450 POKEC, 1 8:GO5UB620:IFGE-0THENSC-SC+5Q: 

K-K+l ;IFK-1 1THENGOTO560 ;rera 251 

460 IFGE-l 7THENSC-SC+1 00: POKEB, 32:8-7905; 

: rem 149 

470 IFGE-1 9THENSC-SC+1 0 ;rem 129 

4 80 I FA-CTHENSC-5C- 1 00 : A-79 1 0 : Al *3 : POKEA, 

32 ;rem 34 

490 POKEC ,32:0*7679; GOT0 1 8 0 ;rem 67 

500 POKE52 , 28 : P0KES6 , 28; POKE36B79 , 236 : POK 
E36869,240:CLR : rem 194 

510 GOSUB63 0 ; PRI NT" { 10 GIU‘}{ 5 SPAZI} 
{RVSjHEAT SEEKER" : rem 87 

520 FORA- 71 68T073 27 : READ J : POKEA, J : NEXT 

treni 129 

530 FORI-7336TOI+7 ; POKEI , PEEK (1-16) ìPOKEl 
+ 68,0: NEXT : PO KE 36869, 255 ;rem 186 

540 VO- 36878 ;S2-3 6 876: 54*36877: FORT- 1T08: 

READD(T) : NEXT : rem 24 

550 L-8 :SC-0 : K-Q : rem 138 

560 IFK-1 lTHENL-L+1 : K-0:SC-5C+1 000 

:rei 245 

570 GOSUB630 : FORT-01 42T081 6 3STEP2 : POKET, 0 
: NEXT : rem 171 

580 FORT-81 64T081 85 : POKET , 1 6 : NEXT 

treni 42 

590 FORT- 1 TORNO (1 ) M : POKE77 24 + 1 NT { RND ( 1 ) * 
400) f l 9: NEXT ! rem 133 

600 I FA< 81 64THENPOKEA ,19 ; rem 170 

610 A-7910;Al-3;C-7679: B-7905: Bl -3 : POKEA, 
Al +7 : GOTOl 1 0 : rem 24 3 

620 POKES4, 190; FORT- 1 0 OTOl STEP- 5 : POKÉVO , T 
/7; NEXT: RETURN ;rem 80 

630 PRINT*' {CLR } ( BLK } 11 ; ; FORI - OTO 4 8 3 : PR I NT 11 
" ; : NEXT : PRINT" ( RED } 11 ; : FORI - 0TO2G ; PRIN 
T” " ; : NEXT ;rem 157 

640 PQKE38905, 2: PRINT" {HOME }{BLK}"; ;RETUR 
N ;rem 51 

650 PRINT" {HOME} ÉRV5) PUNTI : " ; SC; " {HOME} " ; 

SPC (1 3) ; "NAVI : n ; L : RETURN : rem 28 

660 DATA 24, 36, 24, 24, 24, 60,90, 66; rem 38 
670 DATA 24, 24, 24, 24, 24, 24, 24, 24: rem 27 
680 DATA 3,7,14,28,56,112,224,192 

: rem 88 
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690 DATA 0,0,0,255,255,0,0,0 : rem 69 

700 DATA 192, 224, 112, 56, 26, 14, 7, 3 

: r em 81 

710 DATA 24,24,24, 24,24,24, 24, 24:rem 22 

720 DATA 3,7,14,28,56,112,224,192 

trem 83 

730 DATA 0,0,0,255,255,0,0,0 treni 64 
740 DATA 68 , 68 , 84,40, 1 6 , 40 , 84 , 1 6 treni 51 
750 DATA 8,16,32,57,234,92,112,144 

t rem 139 

760 DATA 0,0,71,40,212,40,71,0 t rem 166 
770 DATA 144,112,92,234,57,32,16,6 

trem 141 

760 DATA 16,84,40,16,40,84,68,68:rem 55 

790 DATA 9,14,58,87,156,4,8,16 trem 215 
800 DATA 0,0,226,20,43,20,226,0 trem 213 
810 DATA 16,8,4,156,67,58,14,9 trem 208 
820 DATA 255,255,255,255,255,255,255,255 

trem 200 

830 DATA 129,90,36,60,36,24,36,195 

trem 148 

840 DATA 99,140,34,74,66,36,145,194 

trem 208 

850 DATA 231,165,219,36,36,219,165,231 

trem 89 

860 DATA -22,-21,1,23,22,21,-1,-23 

trem 90 



H*at Sceker ventosi per C64 

2049 : 011 , 008 , 001 , 000 , 158 , 050,229 
2055 : 04 8, 0 54 , 049 , 000 , 000 , 000,1 58 
2061 : 076 , 027 , 008 , 000 , 000 , 000, 124 
2067 : 000 , 000 , 000 , 000 , 000 , 000, 01 9 
2073 ; 000 , 000 , 169 , 014 , 141 , 033,126 
2079 1208 , 169 , 002 , 141 , 032 , 208,023 
2085 -. 160 , 024,1 69 , 000 , 153 , 255,030 
2091 : 21 1 , 136 , 208 , 250,1 69 , 002,2 51 
2097 : 141 , 02 3, 2 1 2 , 169, 0 31 ,141 ,2 54 
21 03 : 024 , 21 2,1 69 , 008,1 41 , 022,11 9 
21 09 : 21 2 , 169 , 003,141 ,00 8,21 2,038 
21 1 5 : 169, 061 ,141 ,01 2,21 2,1 69,063 


21 21 

: 000 

,141 

,01 5 

,21 2 

,141 

,014 

,084 

2127 

: 21 2 

,169 

, 032 

,141 

,019 

,21 2 

,096 

21 33 

: 1 69 

, 1 27 

,141 

,020 

,21 2 

,169 

,155 

21 39 

; 1 29 

,141 

,01 8 

,21 2 

,169 

,001 

,249 

2145 

: 1 41 

,003 

,21 2 

,169 

,025 

,141 

,020 

21 51 

: 005 

,21 2 

,169 

,000 

,141 

,025 

,143 

21 57 

: 008 

,032 

,244 

,020 

,032 

,108 

,041 

21 63 

: 01 9 

,169 

,048 

,160 

,006 

,153 

,158 

2169 

: 200 

,007 

,136 

,208 

,250 

,140 

,038 

21 75 

: 02 1 

,008 

,172 

,248 

,020 

,048 

,132 

21 81 

: 01 8 

,160 

,006 

,153 

,225 

,007 

,190 

21 87 

s 1 36 

,208 

,250 

,169 

,050 

,141 

,069 

2193 

: 1 98 

,007 

,169 

,049 

,141 

,223 

,164 

21 9 9 

: 007 

,169 

,252 

,141 

,017 

,008 

,233 

2205 

: 1 69 

,011 

,162 

,004 

,157 

,050 

,198 

221 1 

: 01 7 

,232 

,232 

,224 

,01 6 

,208 

,068 

221 7 

: 247 

,032 

,141 

,01 3 

,169 

,008 

,01 1 

2223 

: 1 41 

,022 

,008 

,141 

,023 

,008 

,006 

2229 

: 076 

,075 

,01 1 

,169 

,000 

,141 

,141 

2235 

: 066 

,017 

,141 

,067 

,017 

,032 

,01 5 

2241 

:111 

,013 

,173 

,084 

,017 

,201 

,024 

2247 

: 255 

,208 

,034 

,032 

,074 

,013 

,047 

2253 

; 1 73 

,21 2 

,014 

,201 

,008 

,144 

,189 

2259 

: 004 

,201 

,248 

,144 

,020 

,173 

,233 

2265 

: 21 3 

,01 4 

,201 

,008 

,144 

,004 

,033 

2271 

: 2 01 

,248 

,144 

,009 

,032 

,084 

,173 

2277 

: 01 3 

,032 

,135 

,01 3 

,076 

,034 

,020 

2283 

: 01 1 

,173 

,066 

,01 7 

,240 

,003 

,233 

2289 

: 032 

,145 

,010 

,120 

,169 

,253 

,202 

2295 

: 1 41 

,000 

,220 

,173 

,001 

,220 

,234 

2301 

: 041 

,128 

,240 

,243 

,169 

,247 

, C 41 

2307 

: 1 41 

,000 

,220 

,088 

,169 

,004 

,113 

2313 

: 141 

,01 a 

,008 

,162 

,000 

,189 

,01 5 

2319 

: 068 

,01 7 

,201 

,127 

,144 

,006 

,066 

2325 

: 1 73 

,01 8 

,008 

,032 

,122 

,01 0 

,128 

2331 

: 01 4 

,01 8 

,008 

,232 

,224 

,006 

,017 

2337 

: 208 

,235 

,165 

,161 

,205 

,020 

,003 

2343 

: 008 

,240 

,006 

,141 

,020 

,008 

,206 

2349 

: 032 

,127 

,01 2 

,173 

,084 

,01 7 

,234 

2355 

: 01 6 

,033 

,201 

,192 

,240 

,029 

,250 

2361 

: 201 

,255 

,240 

,025 

,032 

,002 

,044 

2367 

: 01 2 

,144 

,007 

,169 

,192 

,141 

,21 6 

2373 

: 084 

,01 7 

,208 

,013 

,169 

,255 

,047 

2379 

: 1 41 

,084 

,01 7 

,169 

,128 

,1 41 

,243 

2385 

: 21 2 

,014 

,141 

,21 3 

,014 

,160 

,067 

2391 

: 009 

,169 

,255 

,21 7 

,074 

,01 7 

,060 

2397 

: 240 

,013 

,136 

,208 

,248 

,173 

,087 

2403 

: 084 

,01 7 

,201 

,192 

,208 

,003 

,036 

2409 

: 076 

,01 8 

,01 1 

,173 

,031 

,208 

,110 

241 5 

: 1 41 

,016 

,008 

,041 

,001 

,240 

,046 

2421 

: 009 

,032 

,071 

,010 

,032 

,084 

,099 

2427 

: 01 3 

,076 

,075 

,01 1 

,173 

,016 

,231 

2433 

: 00 8 

,041 

,002 

,240 

,003 

,032 

,199 

2439 

: 033 

,010 

,173 

,01 6 

,008 

,041 

,160 

2445 

: 252 

,208 

,003 

,076 

,192 

,008 

,112 

2451 

: 1 41 

,016 

,008 

,169 

,004 

,141 

,114 

2457 

: 01 9 

,008 

,170 

,173 

,01 9 

,008 

,038 
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2463 

2469 

2475 

2481 

2487 

2493 

2499 

2505 

251 1 

251 7 

2523 

2529 

2535 

2541 

2547 

2553 

2559 

2565 

2571 

2577 

2583 

2589 

2595 

2601 

2607 

261 3 

261 9 

2625 

2631 

2637 

2643 

2649 

2655 

2661 

2667 

2673 

2679 

2685 

2691 

2697 

2703 

2709 

271 5 

2721 

2727 

2733 

2739 

2745 

2751 

2757 

2763 

2769 

2775 

2781 

2787 

2793 

2799 


; 04 5 , 01 6,00 8 , 240,00 3 , 032,247 
: 1 79 , 009 , 01 4 , 019 , 00 8 / 232,1 14 
: 232 , 224,01 6 , 208 , 236 / 076, 1 39 
: 192 , 008 , 04 5 , 01 6 , 208 , 240 , 1 1 8 
: 002, 0 56 , 036 , 024,1 89 , 000,2 34 
: 208 , 106 , 056 , 233 , 00 8 , 176, 208 
: 002 , 169 , 000 , 201 , 160,1 44,103 
: 002 , 169 , 144 , 074 , 074 , 074, 226 
: 074 , 168 , 1 85 , 074 , 01 7 , 201 ,1 58 
: 255, 20 8 , 072 , 169,1 92 , 153,238 
: 074, 01 7 , 169 , 000,1 57 , 034,1 58 
: 01 7,1 57 , 035,01 7 , 169 , 226,078 
: 157 , 001 , 208 , 189 , 000 , 208,226 
: 0 56 , 2 33 , 01 6 , 041 , 224 , 024,063 
: 1 05 , 028 , 1 57 , 000 , 208 , 032,005 
: 1 54 , 01 2 , 138 , 074 , 1 70 , 169,1 98 
: 064,1 57 , 066,01 7,1 69 , 255,21 5 
: 157 , 24 8 , 007,1 38,01 0 , 170,223 
: 032 , 063, 01 3,1 52 , 010 , 010,03 5 
{ 168 , 169 , 096 , 1 53 , 11 3 , 007,21 1 
: 153 , 1 14 , 007 , 1 53 , 1 53 , 007,098 
: 1 53,1 54 , 007 , 096 , 173 , 084,184 
: 01 7,201 , 255 , 208 , 030 , 032,010 
: 1 81 , 01 2 , 032 , 063 , 01 3 , 1 69,255 
: 000,1 41 , 036 , 017,1 41 , 037,1 63 
: 01 7, 141 , 084,01 7 , 169 , 226,1 95 
: 141 , 003 , 208 , 169 , 002,141 ,21 1 
{ 040 , 208 , 032 , 084 , 013 , 096,026 
{ 169 , 000 , 141 , 034 , 017 , 141 ,061 
{ 035 , 01 7 , 169 , 226 , 141 , 001 ,1 54 
{ 208 , 169 , 002 , 1 41 , 039 , 208,082 
{ 169 , 001 , 013 , 028 , 208 , 141 ,137 
{ 028 , 208 , 032 , 1 35 , 013 , 032,031 
{ 063 , 013 , 160 , 1 92 , 132 , 162,055 
: 1 73 , 031 , 208 , 041 , 002 , 240,034 
{ 003 , 032 , 033 , 010 , 164 , 162,005 
{ 208 , 242 , 096 , 01 3 , 017 , 008,191 
: 141 , 017 , 008 , 173,01 8 , 008,234 
: 073 , 255 , 045 , 021 , 208 , 141 ,106 
{ 021 , 208 , 1 69 , 254 , 1 57 , 250,1 72 
{ 007 , 096 , 1 73 , 067 , 017 , 201 ,1 92 
: 028 , 176 , 006 , 1 69 , 000 , 141 ,1 57 
{ 066 , 01 7 , 096 , 1 73 , 01 7 , 008,020 
{ 208 , 001 , 096 , 169 , 000 , 141 ,008 
{ 066 , 017 , 141 , 067 , 017 , 169,1 32 
1 004,1 70 , 168 , 045 , 017,00 8,073 
{ 208 , 010 , 1 52 , 010 , 168 , 232,1 91 
{ 232 , 224 , 016 , 208 , 242 , 096,1 79 
{ 141 , 01 8 , 008 , 01 3 , 021 , 208,088 
{ 141 , 021 , 208 , 1 73 , 01 8 , 008,254 
{ 073 , 255 , 168 , 045 , 017 , 008,001 
{ 141 , 017 , 008 , 173 , 016 , 208,004 
{ 041 , 001 , 240 , 01 2 , 173 , 01 8,188 
{ 008 , 01 3 , 016 , 208 , 141 , 016,111 
{ 208 , 076 , 238 , 010 , 1 52 , 045 , 1 88 
{ 016 , 208 , 141 , 016 , 208 , 173,227 
: 034, 01 7 , 157 , 034 , 017,1 73,1 59 



2805 

{035 

,01 7 

,157 

281 1 

{000 

,208 

,157 

281 7 

{001 

,208 

,157 

2823 

{074 

,168 

,169 

2829 

{01 7 

,088 

,076 

2835 

: 021 

,008 

,254 

2841 

{010 

,032 

, 1 81 

2847 

{250 

,240 

,041 

2853 

: 034 

,01 7 

,141 

2859 

{035 

,01 7 

,141 

2865 

{063 

,01 3 

,173 

2871 

{001 

,141 

,028 

2877 

{141 

,039 

,208 

2883 

{169 

,192 

,133 

2889 

{208 

,252 

,120 

2895 

{000 

,208 

,169 

2901 

{208 

,169 

,000 

2907 

{169 

,001 

,141 

291 3 

{240 

,141 

,248 

291 9 

{141 

,039 

,208 

2925 

{028 

,208 

,141 

2931 

{000 

,133 

,160 

2937 

{162 

, 1 41 

,020 

2943 

{019 

,162 

,009 

2949 

{074 

,017 

,202 

2955 

{000 

,141 

,084 

2961 

{20 8 

,173 

,030 

2967 

{020 

,048 

,028 

2973 

{197 

,007 

,170 

2979 

{153 

,197 

,007 

2985 

{007 

, 1 36 

,208 

2991 

{056 

,237 

,021 

2997 

{008 

,174 

,021 

3003 

{008 

,208 

,01 9 

3009 

{248 

,020 

,048 

301 5 

{022 

,008 

,208 

3021 

{248 

,076 

,188 

3027 

{008 

,189 

,022 

3033 

{049 

,141 

,214 

3039 

{220 

,045 

,000 

3045 

{208 

,246 

,173 

3051 

{000 

,220 

,041 

3057 

: 1 69 

,000 

,141 

3063 

{036 

,017 

,169 

3069 

{017 

,088 

,076 

3075 

{009 

,185 

,074 

3081 

{240 

,013 

,136 

3087 

{253 

,045 

,021 


, 035 , 017 , 1 73,1 67 
, 000 , 208 , 173,229 
,001 , 208,1 38,202 
, 000 , 1 53 , 066,1 25 
, 090 , 013 , 174,215 
, 022 , 008 , 160,236 
, 01 2 , 1 36 , 208,092 
, 169 , 000 , 141 ,104 
, 036 , 017 , 141,167 
, 037 , 01 7 , 032,066 
, 028 , 208 , 009,031 
, 208 , 169 , 002,092 
, 141 , 040 , 208,070 
, 162 , 165 , 162,026 
, 169 , 100 , 141,039 
, 100 , 141 , 001 ,186 
, 141 , 016 , 208,059 
, 021 , 208 , 169,032 
, 007 , 169 , 015,149 
, 169 , 254 , 045,191 
, 028 , 208 , 169,123 
, 133 , 161 , 133,067 
, 008 , 032 , 111 ,083 
, 169 , 255 , 157,130 
, 016 , 250 , 169,093 
, 01 7 , 1 73 , 031 ,073 
, 208 , 044 , 248,032 
, 160 , 009 , 185,089 
, 1 85 , 222 , 007,1 77 
, 1 38 , 1 53 , 222,009 
, 239 , 1 69 , 001 ,161 
, 008,1 41 ,021 ,147 
, 008 , 1 89 , 022,091 
, 160 , 000 , 044,114 
, 001 , 200 , 1 85,1 27 
, 202 , 136 , 016,023 
, 012 , 222 , 022,205 
, 008 , 024 , 105,055 
, 007 , 173 , 001 ,034 
, 220 , 041 , 01 6,253 
, 001 , 220 , 045,098 
, 01 6 , 240 , 246,230 
, 035 , 017 , 141,232 
, 085 , 141 , 034,21 7 
, 1 84 , 008 , 160 , 01 8 
, 017 , 201 , 255,232 
, 016 , 246 , 169,061 
, 208 , 141 , 021 ,1 92 
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3093 :208, 056,096, 169,1 92,1 53, 
3099 :074, 01 7,152,01 0,01 0,168, 
3105 :169, 096,1 53,11 3,007,1 53, 
3111 il 1 4,007,1 53,1 53,007,1 53, 
3117 il 54,007,1 52,010,010,010, 
3123 i072, 144, 010, 169, 002, 013, 
3129 {016,208,141,016,208,208, 
3135 {008,169,253,045,016,208, 
3141 {141,016,208,104,024,105, 
3147 {028,141,002,208,169,226, 
3153 {141,003,208,169,247,141, 
3159 {249,007,169,171,141,037, 
3165 {017,173,031,208,044,017, 
31 71 {208,048,251 ,173,01 8,208, 
3177 {201,242,208,244,169,007, 
3183 {141,040,208,169,002,013, 
31 89 -.021 ,208,1 41,021,208,1 73, 
3195 {031,208,024,096,072,138, 
3201 {072,162,005,254,200,007, 
3207 {169,058,221,200,007,208, 
3213 {008,169,048,157,200,007, 
3219 {202,208,238,104,170,104, 
3225 {096,072,138,072,173,205, 
3231 {007,024,105,005,201,058, 
3237 :176,005,141,205,007,208, 
3243 {234,233,010,141,205,007, 
3249 {162,004,208,207,072,138, 
3255 {072,162,004,208,200,120, 
3261 {169,049,141,020,003,169, 
3267 {234,141,021,003,088,169, 
3273 :048,141,214,007,032,132, 
3279 {255,160,016,185,046,013, 
3285 {201,064,144,003,056,233, 
3291 {064,153,011,004,169,003, 
3297 {153,011,216,136,208,235, 
3303 {200,140,026,008,173,026, 
3309 {008,208,012,169,045,141, 
3315 {025,004,169,062,141,026, 
3321 {004,208,010,169,060,141, 
3327 {025,004,169,045,141,026, 
3333 {004,173,000,220,045,001, 
3339 {220,074,074,074,176,005, 
3345 {160,001,140,026,008,074, 
3351 {176,005,160,000,140,026, 
3357 {008,074,176,202,032,129, 
3363 {255,173,026,008,240,003, 
3369 {076,027,008,133,198,000, 
3375 {080,076,065,089,032,065, 
3381 {071,065,073,078,063,032, 
3387 {089,032,032,078,169,128, 
3393 {141,011,212,169,129,141, 
3399 {011,212,096,169,255,056, 
3405 {237,003,208,141,015,212, 
3411 {096,169,000,141,015,212, 
3417 {096,169,024,141,025,008, 
3423 {165,162,141,024,008,169, 
3429 {064,141,004,212,169,065, 
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34 35 il 41 ,004,212,096,165,162,119 
3441 {205,024,008,240,016,1 41 ,235 
3447 {024,008,173,025,008,201 ,046 
3453 {048,1 76,007,141 ,001 ,21 2,1 98 
3459 {238,025,008,096,169,000,155 
34 65 {1 41 ,001 ,212,096,076,153,048 
3471 {013,01 1,000,000,000,000,167 
3477 :000,000,000,000,120,169,182 
3483 {171 ,141 ,020,003,1 69,013,160 
3489 : 141 ,021 ,003,169,014,141 ,138 
3495 {005,220,088,096,173,000,237 
3501 {220,045,001 ,220,141 ,146,1 78 
3507 {013,173,034,017,013,035,208 
351 3 i 01 7,20 8,00 3,076,19 5,014,1 86 
3519 il 73,146,013,041 ,016,208,020 
3525 {003,238,066,017,173,146,072 
3531 {013,041 ,003,201 ,003,208,160 
3537 :003,076,195,01 4,1 73,144,046 
3543 {013,141,145,013,173,034,222 
3549 {01 7,141 ,149,01 3,048,003,080 
3555 {1 69,000,044,1 69,255,141 ,237 
3561 {150,013,160,008,136,014,202 

3567 {145,013,144,250,192,000,215 
3573 {240,037,014,149,01 3,046,232 
3579 { 1 50,013,014,145,01 3,144,21 8 
3585 {023,024,173,149,013,109,236 
3591 {034,01 7,1 41 ,1 49,013,144,249 

3597 :003,238,150,013,173,034,112 
3603 {017,016,003,206,150,013,168 
3609 {136,208,219,1 73,1 46,013,1 52 
3615 {041,002,208,022,056,173,021 
3621 {148,01 3,237,149,013,141 ,226 
3627 {148,013,173,035,01 7,237,154 
3633 {150,01 3,1 41 ,035,017,076,225 
3639 {076,01 4,024,1 73,1 48,013,247 
3645 {109,1 49,01 3,1 41 ,1 48,013,1 22 
3651 {1 73,035,01 7,109,150,013,052 
3657 :1 41 ,035,01 7,1 73,1 44,013,084 
3663 {141 ,145,013,173,035,017,091 
3669 {1 41 ,151 ,01 3,048,003,1 69,098 
3675 {000,044,169,255,141 ,152,084 
3681 {01 3,1 60,008,1 36,01 4,1 45,061 

3687 {01 3,1 44,250, 192,000,240,174 
3693 {037,014,151 ,013,046,152,010 
3699 {013,014,145,013,144,023,21 1 
3705 {024,173,151 ,013,109,035,114 
3711 {01 7,1 41 ,1 51 ,01 3,1 44,003,084 

3717 {238,152,013,173,035,017,249 
3723 {01 6,003,206,152,01 3,1 36,1 53 
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37 29 : 20 8,21 9,1 73 , 146 , 01 3 , 041 ,177 

373 5 : 002, 2 08 , 022, 02 4,1 73,1 47,21 5 
3741 : 01 3,1 09,1 51 ,01 3,1 41 ,1 47, 21 9 

3747 : 01 3,1 73 , 034,01 7,1 09,1 52,1 49 
3753 : 01 3 , 1 41 , 034 , 017 , 076 , 195,133 
3759 : 01 4 , 056, 1 73 , 1 47 , 01 3 , 237 , 047 
3765 : 1 51 , 01 3 , 1 41 , 1 47 , 013 , 1 73,051 
3771 : 0 34, 01 7, 2 37, 1 52, 01 3, 1 41 ,01 3 

3777 : 034, 01 7 , 076,1 98 , 014 , 076,096 
3783 : 21 6,01 4,00 8 , 000 , 000 , 000,1 81 
3789 : 000 , 000 , 000 , 000 , 000 , 000, 205 
3795 : 000 , 000 , 000 , 000 , 000 , 1 73,1 28 
3801 : 000 , 208 , 056 , 237 , 002 , 208, 160 
3807 : 144 , 00 2 , 024 , 036 , 056 , 106, 079 
381 3 : 141 ,21 2,01 4 , 173,001 , 208,21 0 
381 9 : 056 , 237 , 003, 20 8,1 4 4 , 002,1 1 7 
3825 : 02 4, 0 36 , 056 , 106,1 41 ,21 3,049 

38 31 : 01 4,1 69 , 003 , 045,01 6 , 208,1 90 

3837 : 240, 04 6, 201 , 003 , 240 , 042,001 
384 3 : 201 ,001 , 240,01 9, 1 73,21 2,081 
3849 s 01 4 , 056 , 233 , 1 28 , 201 , 165,038 
3855 : 1 76 , 003 , 024, 1 05, 1 72, 1 41 ,1 24 
3861 : 21 2,01 4 , 076,0 69,01 5,1 73,0 68 
3867 1212 , 014 , 024 , 105 , 128 , 201 ,199 
3 873 : 085,1 44 , 003 , 056 , 233,1 72,21 4 
3879 : 141 ,21 2,01 4 , 076 , 069,01 5,054 
3885 : 173, 21 2 , 014 , 048 , 009,201 ,1 90 
3891 : 085 , 048, 01 2 , 056 , 233,1 72,1 45 

389 7 : 144 , 007, 201 , 165,01 6 , 003,081 
3903 : 024 , 105 , 172 , 141 , 212 , 014,219 
3909 : 173 , 084 , 01 7 , 04 8 , 00 3 , 076, 21 4 
391 5 : 01 2,01 7,1 69 , 000 , 044 , 037,098 
3921 : 01 7,0 4 8 , 009 , 044,0 36 , 017,2 52 

3927 : 01 6,01 4,1 69,001 , 208,01 0,249 
393 3 : 04 4 , 036, 01 7 , 016 , 003,1 69,1 22 
393 9 : 002 , 044 , 169 , 003,1 41 ,21 0,1 56 
3945 : 01 4 , 1 69 , 000 , 044,21 3,01 4,04 7 
3951 : 048 , 009 , 044 , 21 2 , 01 4 , 01 6,1 98 
3957 : 01 4 , 169,001 , 208 , 010 , 044,051 
3963 : 21 2, 01 4 , 016 , 003 , 169 , 002,027 
3 969 : 044, 1 69 , 003 , 1 41 ,21 1 , 014,1 99 

3 975 : 173, 21 0,01 4 , 056 , 237,211 ,012 

39 81 : 01 4 , 074,1 44 , 008,041 ,001 ,1 67 

3987 : 1 41 , 203 , 01 4 , 076 , 034 , 01 6,1 1 9 
3993 : 240, 01 8,1 69 , 000 , 056 , 237,105 
3999 : 212 , 014 , 141 , 212 , 014 , 169, 153 

400 5 : 000 , 056 , 237, 21 3,01 4, 141 ,058 

4 01 1 : 21 3,01 4,1 69 , 000 , 1 41 ,21 4,1 54 

401 7 : 01 4,1 41 ,21 5,01 4 , 173 , 212,178 

4023 : 01 4,01 3,21 3 , 014 , 208 , 003,1 36 
4029 ; 076, 01 2,01 7,1 73,21 4 , 014,1 83 
4035 : 024,1 09 , 212 , 014,1 41 , 214,1 41 
4041 : 01 4,1 73 , 215,01 4 , 024 , 109,238 

4047 : 213 , 014 , 141 , 215 , 014 , 173,209 
4 0 53 : 21 4,01 4 , 056 , 237 , 036,01 7,01 9 

40 59 : 077, 0 36, 01 7,01 6,01 4,1 73,040 
4065 : 21 5 , 014 , 056 , 237 , 037,01 7,033 


40 71 : 0 77 , 037, 01 7 , 048 , 21 2 , 016,1 26 

40 77 : 0 23,1 73,21 5 , 014 , 056 , 077,027 
40 83 :0 37 ', 01 7,04 8,01 1 , 1 72 , 21 0 , 2 26 

40 8 9 : 01 4,20 4,21 1 ,01 4 , 208,00 3,1 3 5 

4095 : 076, 01 2,01 7 , 169 , 000 , 044,061 
4101 : 1 69 , 001 , 044 , 212 , 014 , 016,205 

41 07 : 00 2, 0 73, 001 , 044,21 3,01 4,102 

41 1 3 : 01 6 , 002 , 073,001 ,1 72 , 210,235 
41 1 9 : 01 4 , 204, 21 1 ,01 4 , 240 , 005,1 99 
41 25 : 073 , 001 ,1 41 , 203,01 4,1 73,1 22 
41 31 : 201 ,01 4,1 41 , 202,01 4,1 73,012 
4137 : 036, 01 7,1 41 , 206,01 4 , 048,247 
41 43 : 003 , 1 69 , 000 , 044 , 1 69 , 255,1 75 
41 49 : 1 41 , 207,01 4,1 60 , 008,1 36,207 
4155 : 01 4 , 202, 01 4, 1 4 4,2 50,1 92,107 
41 61 : 000 , 240 , 037, 01 4,20 6,01 4,064 
4167 : 046 , 207 , 01 4 , 01 4 , 202 , 01 4,056 
41 73 : 144 , 023 , 024,1 73 , 206,01 4,1 4 9 
41 79 : 109 , 036,01 7,1 41 ,2 06 , 014,094 
4185 : 1 44 , 003 , 238 , 207 , 01 4 , 1 73,1 00 
4191 : 0 36, 01 7,01 6,0 0 3 , 206,20 7,06 8 

41 97 : 01 4,1 36 , 208,21 9,1 73 , 203,030 
4203 : 01 4 , 208 , 022,0 56 , 173 , 205,01 7 

420 9 : 01 4 , 237 , 206 , 01 4, 141 , 205,1 62 

421 5 : 01 4,1 73 , 037,01 7 , 237 , 207,036 

42 21 : 01 4,1 41 , 037,01 7 , 076,1 51 ,049 

4227 : 01 6 , 024,1 73 , 205,01 4 , 109,1 60 
4233 : 206 , 01 4 , 141 , 20 5 , 014 , 173, 122 
4239 : 037, 01 7,1 09 , 207,01 4,1 41 ,1 56 
424 5 : 037, 01 7 , 1 73,201 ,01 4,1 41 ,220 
4251 : 202, 01 4,1 73 , 037,01 7,1 41 ,227 

42 57 : 208 , 01 4 , 048,00 3 , 169 , 000,091 
4 2 63 : 044,1 69 , 255 , 141 , 209 , 014,231 
4269 : 1 60 , 008 , 1 36 , 01 4 , 202 , 01 4,1 95 
4275 ; 144 , 250 , 192 , 000 , 240 , 037 , 01 8 

42 81 : 01 4 , 20 8 , 01 4 , 04 6 , 209, 01 4,1 78 

4287 : 01 4 , 202,01 4,1 44 , 023 , 024,100 
4 2 93 : 1 73 , 208 , 014 , 109 , 037,01 7,243 
4299 : 141 , 208 , 014 , 1 44 , 003 , 238,1 83 
4 3 05 : 20 9, 01 4,1 73,0 37,01 7,01 6,1 63 
431 1 : 00 3 , 20 6 , 209, 01 4 , 136,20 8,223 
4317 : 219 , 173 , 203 , 014 , 208 , 022,036 
4323 : 02 4,1 73 , 204,01 4 , 109,20 8,1 91 
4 3 29 ; 01 4, 1 41 , 204,01 4 , 173 , 036,047 
4335 : 01 7 , 1 09 , 209 , 01 4 , 1 41 ,0 36,2 53 
4341 : 01 7,0 76 , 012,01 7 , 056, 1 73,0 84 

4347 : 204, 01 4,2 37 , 208 , 014,1 41 ,045 

43 53 : 204, 01 4,1 73,0 36,01 7 , 237,1 70 

43 59 : 209, 01 4,1 41 ,0 36,01 7,0 76,244 
4365 : 01 5,01 7 , 076,10 8,01 7 , 000,2 46 
4371 : 000 , 000 , 000 , 000 , 000 , 000 , 01 9 
4377 : 000 , 000 , 000 , 00 0 , 000 , 000, 025 
4383 : 000 , 000 , 00 0,00 0 , 000 , 000,031 
438 9 : 0 00 , 000 , 00 0 , 00 0 , 000 , 000, 0 37 
43 9 5 : 000 , 000 , 000 , 000 , 000 , 000,04 3 
4401 : 000 , 000 , 000 , 000 , 000 , 000, 049 

4 4 07 ; 000 , 000 , 000 , 000 , 000 , 000, 055 
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4413 1000,000,000,000,000,000, 
4419 :000,000,000,000,000,000, 
4425 1000,000,000,000,000,000, 
4431 1000,000,000,000,000,000, 
4437 1001,254,002,253,004,251, 
4443 1008,247,016,239,032,223, 
4449 1064,191,128,127,000,000, 
4455 1000,000,000,000,000,162, 
4461 1000,189,050,017,141,101, 
4467 1017,189,034,017,141,102, 
4473 1017,048,003,169,000,044, 
4479 -.1 69,255,1 41 ,103,01 7,1 89, 
4485 1035,017,141,104,017,048, 
4491 1003,169,000,044,169,255, 
4497 1141,105,017,160,008,136, 
4503 1014,101,017,144,250,192, 
4509 1000,240,066,014,102,017, 
4515 :046,103,017,014,104,017, 
4521 1046,105,017,014,101,017, 
4527 1144,046,024,173,102,017, 
4533 1125,034,017,141,102,017, 
4539 1144,003,238,103,017,189, 
4545 1034,017,016,003,206,103, 
4551 1017,024,173,104,017,125, 
4557 1035,017,141,104,017,144, 
4563 :003,238,105,017,189,035, 
4569 1017,016,003,206,105,017, 
4575 1136,208,190,169,000,141, 
4 581 il 06,01 7,1 89,085,017,045, 
4587 1016,208,240,003,238,106, 
4593 1017,024,189,018,017,109, 
4599 -.102,017,157,01 8,01 7,1 89, 
4605 :000,208,109,103,017,157, 
4611 :000,208,144,003,238,106, 
4617 1017,044,103,017,016,003, 
4623 1206,106,017,044,106,017, 
4629 1016,014,169,001,141,106, 
4635 :017,024,189,000,208,105, 
4641 1088,157,000,208,169,001, 
4647 1205,106,017,208,019,189, 
4653 1000,208,201,088,144,012, 
4659 1206,106,017,056,189,000, 
4665 1208,233,088,157,000,208, 
4671 1173,106,01 7,208,012,189, 
4677 1086,017,045,016,208,141, 
4683 1016,208,076,089,018,189, 
4689 1085,017,013,016,208,141, 
4695 1016,208,024,189,019,017, 
4701 1109,104,017,157,019,017, 
4707 1189,001,208,109,105,017, 
4713 1201,029,176,002,169,029, 
4719 1201,250,144,002,169,250, 
4725 1157,001,208,232,232,224, 
4731 1016,240,003,076,110,017, 
4737 1044,067,017,048,003,238, 
4743 1067,017,162,005,254,068, 
4749 1017,202,016,250,173,084, 
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4755 101 7,048,003,238,084,01 7,042 
4761 il 73,036,01 7,20 8,01 3,1 73,00 5 
4767 1037,01 7,208,008,1 69,255,085 
4773 1141 ,249,007,076,001 ,01 9,146 
4779 1169,000,141 ,107,01 7,1 73,010 
4785 i036, 01 7,048,012,201 ,032,01 1 
4 791 il 44, 01 7,169,004,141 ,107,253 
4 797 : 01 7,0 76,202,01 8,201 ,224,1 59 
4803 1176,005,1 69,006,141 ,107,031 
4809 : 01 7,1 73,037,01 7,048,01 6,2 53 
4815 :201 ,032,144,025,024,169,034 
4821 :008,109,1 07,01 7,141 ,107,1 90 
4827 i 01 7,076,236,01 8,201 ,224,223 
4833 1176,009,024,169,009,109,209 
4839 :107,017,141 ,107,017,173,025 
484 5 1107,01 7,201 ,004,208,002,008 
4851 il 69,010,201 ,006,208,002,071 
48 57 il 69,01 1 ,024,105,238,141 ,169 
4863 1249,007,1 73,034,017,208,175 
4869 1 01 3,1 73,0 35,01 7,208,008,203 
4875 1169,255,141 ,248,007,076,139 
4881 1105,019,169,000,141 ,107,046 
4887 : 01 7,173,034,017,048,012,068 
4 893 1201 ,035,144,017,1 69,004,087 
4899 il 41 ,107,017,076,050,019,1 89 
4905 1201,224,176,005,169,006,054 
4911 il 41 ,107,017,1 73,035,017,025 
491 7 1048,016,201 ,032,144,025,007 
4923 1024,169,008,109,107,017,237 
4929 1141 ,107,017,076,084,01 9,253 
4935 :201 ,224,1 76,009,024,1 69,106 
4941 :009,109,1 07,01 7,141 ,107,055 
4947 1017,173,107,01 7, 201 , 004 , 090 
4953 1208,002,169,010,201 ,006,173 
4959 1208,002,169,01 1 ,024,105,102 
4965 1230,141 ,248,007,076,049,084 
4971 1234,076,1 1 4,019,076,21 9,077 
4977 1020,032,1 81 ,255,120,173,126 
4983 1022,208,009,01 6,141 ,022,025 
4989 1208,169,029,1 41 ,024,208,136 
4995 1169,007,141 ,035,208,169,092 
5001 1000,141,037,208,169,007,187 
5007 il 41 ,038,208,1 69,01 5,141 ,0 87 
501 3 1039,208,169,147,133,254,075 
501 9 il 69,022,1 33,255,169,128,007 
5025 1133,252,169,059,1 33,253,1 36 
5031 1160,000,177,254,208,024,222 

5037 1230,254,208,002,230,255,072 
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5043 il 77,254,1 70,1 69,000, 145,070 
5049 : 252, 230 ,2 52,2 08,002,230,079 
5055 i 2 53, 20 2, 20 8 , 243, 240 ,008,065 
5061 il 4 5,2 52,230, 2 52,208, 002,006 
5067 i 230, 253, 230, 254, 208,002,100 
5073 : 230, 2 55,1 65,2 52,201 ,064,096 
5079 : 208, 20 8,1 69,254,141 ,028,1 99 
5085 : 208,1 65,001 ,041 ,2 51 ,133,252 
5091 : 001 ,160,000, 1 85,000,220,025 
5097 :1 53,000,048,1 85,000,221 ,072 
5103 :1 53,000,049,200,208,241 ,066 
5109 il 65,001 ,009,004,1 33,001 ,046 
51 1 5 : 160, 000,1 85, 1 54,020,1 53,1 55 
51 21 i 000, 050,200, 192, 032,208,1 71 

51 27 : 24 5, 160, 000,1 52,1 53,000,20 5 
51 33 i 051 ,200, 192,008,208,248,1 52 
51 39 il 69,004,1 33,2 55,1 69,21 6,1 97 
51 45 il 33,253,169,000,1 33,254,1 99 
51 51 il 33, 252, 168,1 69,096,145,226 
51 57 i 2 54,1 69, 008,1 45,252,200,041 
51 63 1208,245,230,255,230,253,1 84 
5169 il 65,2 55,201 ,00 7,208,2 35,0 96 
5175 il 69, 0 96 ,1 53, 000, 007, 169, 1 37 
51 81 i 008,1 53,000,219,200,192,065 
51 87 il 92,20 8, 241 ,032,219,020,21 1 
5193 1160,000,169,254,153,250,035 
5199 i 007, 169, 002, 153, 041 ,208,147 
5205 i 200,1 92,006,208,241 ,169,077 
5211 i 255,1 41 ,248,007,141,249,108 
5217 i 007,1 60,000,1 85,1 86,020,1 43 
5223 : 201 ,064,1 44,003,056,233,036 
5229 i 064,1 53,1 92,007,169,003,1 85 
5235 il 53,1 92,21 9,200,044,248,147 
5241 i020, 01 6,006,192,024,208,075 
5247 i 22 8, 240, 004, 192, 033, 20 8, 008 
5253 1222,169,003,1 53,1 92,21 9,067 
5259 :200, 192,040,208, 248,088,091 
5265 1096,096,066,064,096,096,147 
5271 i067, 065, 096, 000, 000, 000, 123 
5277 *.00 0,000,00 3,00 3,003,00 3,169 
5283 i 003, 01 1 ,01 1 ,043,043,040,058 

52 89 : 040, 000,000, 000, 000, 000, 209 
5295 il 92,1 92,192,1 92,1 92,224,079 
5301 1224,232,232,040,040,080,005 
5307 1076,065,089,069,082,049,105 
531 3 i 058,032,032,032,032,032,1 55 
5319 :032,032,032,083,072,073,01 1 
5325 i 080, 083, 058, 032,032,032,010 
5331 : 080, 076, 065, 089, 069, 082,1 60 
5337 1050,058,160,000,162,004,139 
5343 il 89,14 5,020,1 53,11 2,007,081 
5349 il 89, 149, 020, 1 53, 152, 007, 131 
5355 i 200, 202, 20 8, 240,1 92,040,037 
5361 1208,234,096,076,249,020,100 
5367 1000,000,169,000,141 ,247,036 
5373 : 020, 160, 1 1 0,1 62, 172, 169, 022 
5379 :021 ,032,073,022,173,247,059 


5385 i 020,01 0,1 70, 189,231 ,004,1 21 
5391 i 073,1 28,1 57,231 ,004,032,1 28 
5397 1086,022,240,030,1 89,231 ,051 
5403 1004,073,128,1 57,231 ,004,11 2 
5409 1152,024,109,247,020,201,018 
5415 :255,208,002,169,000,201,106 
5421 1003,208,002,169,001 ,141 ,057 
5427 1247,020,208,208,173,247,130 
5433 1020,024,105,004,141 ,050,145 
5439 i 01 7,105,002,141 ,052,017,141 
5445 1105,003,141,201,014,105,126 
5451 i 001 ,1 41 ,1 44,01 3,1 69,002,033 
5457 1205,247,020,208,003,238,234 
5463 il 44, 01 3,1 69,255,1 41 , 248,033 
5469 1020,160,025,1 62,026, 1 69,143 
5475 1022,032,073,022,173,248,157 
5481 1020,010,170,232,232,189,190 
5487 1044,005,073,128,157,044,050 
54 93 : 005,032,086, 022,240, 035,02 5 
5499 1024,109,248,020,189,044,245 

550 5 : 00 5, 073,1 2 8,1 57, 044, 00 S, 029 

551 1 :1 52,024,1 09,24 8,020,201 ,1 21 
5517 1254,208,002,169,255,201,206 

552 3 : 001 ,208,002,1 69,000,1 41 , 1 56 
5529 1248,020,076, 1 03,021 ,1 60,01 3 
5535 1021,162,051,169,022,032,104 
5541 1073,022,032,086,022,208,096 
554 7 i 2 51 ,096,19 7,032,201 ,032,212 
5553 1206,032,058,084,082,069,196 
5559 :080,088,069,032,044,069,053 
5565 :084,065,073,068,069,077,113 
5571 1082,069,084,078,073,032,101 
5577 1044,069,067,073,086,079,107 
5583 : 0 78, 0 32, 01 7,01 3,04 5,084,220 
5589 1067,069,076,069,083,032,097 
5595 1079,084,032,078,079,084,143 
5601 : 0 84, 08 5, 066, 032, 068, 078,1 26 
5607 :065, 032, 075, 067, 073, 084, 1 1 5 
561 3 : 0 83, 089, 0 79, 074, 0 32, 069,1 51 
561 9 :083, 085,032, 01 7,01 3,053,01 4 
5625 :056,057,049,032,033,069,033 
56 31 : 0 84, 08 5, 0 80, 077, 0 79, 19 5, 0 87 
5637 1032,044,210,197,203,197,120 
5643 :1 97,21 1 ,032,21 2,1 93,197,029 
5649 1200,032,032,032,032,032,121 
56 55 il 55,01 7,147,014,050,032,1 82 
56 61 : 04 9, 032, 0 58, 0 83, 0 82, 069, 146 
5667 : 0 89, 065, 076, 080, 032, 070,1 91 
56 73 : 079,032, 0 82, 069, 066, 077, 190 
5679 : 0 85, 078, 032,01 7, 01 3, 078,094 
5685 ;073,071 ,069,066,032,079,187 
5691 : 084, 032, 069, 082, 073, 070, 21 3 
5697 : 032, 083, 0 83, 069, 082, 080, 238 
570 3 : 01 7,01 3,1 34,254,1 33,255,109 
5709 1177,254,032,210,255,136,117 
5715 :208, 248,096,1 73, 000,220,004 
5721 :045,001,220,041 ,028,201 ,11 3 
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5727 : 028 , 208 , 244 , 169 , 000,1 33,109 
5733 : 162 , 169 , 028 , 197 , 162 , 208, 00 3 
5739 : 252,1 73 , 000 , 220 , 045,001 ,030 
5745 : 220, 041 , 004 , 208 , 003 , 1 60 , 237 
5751 : 255 , 096 , 1 73 , 000 , 220 , 045,140 
5757 : 001 , 220,041 , 008,20 8 , 003,094 
5763 : 1 60 , 001 , 096 , 1 73 , 000 , 220, 01 3 
5769 : 045 , 001 , 220,041 ,01 6 , 208,1 56 
5775 : 220,1 60 , 000 , 096 , 000 , 008 , 1 1 5 
5781 : 1 92 , 000 , 001 , 027 , 192 , 000,049 
5787 : 001 , 063, 1 92 , 000 , 001 , 063,21 9 
5793 : 1 28 , 000 , 001 , 062 , 000 , 002,098 
5799 : 060 , 000 , 002 , 060 , 000 , 002, 035 

580 5 : 060 , 000 , 00 2, 0 62 , 000 , 00 2, 04 3 

581 1 : 0 63 , 000 , 002 , 063, 0 00 , 002, 053 
581 7 : 063 , 000 , 002 , 062 , 000 , 002,058 
5823 : 062 , 000 , 002 , 060 , 000 , 002, 061 
5829 : 060 , 000 , 002 , 056 , 000 , 002,061 
5835 : 04 8 , 000 , 009, 01 2 , 000 , 002,01 8 
5841 : 028 , 000 , 002 , 060 , 000 , 002, 045 
5847 : 060 , 000 , 002 , 124 , 000 , 002, 147 
5853 : 124 , 000 , 002, 2 52 , 000 , 002,089 
5859 : 252 , 000 , 002 , 252 , 000 , 002,223 
5865 : 124 , 000 , 002 , 060 , 000 , 002, 165 
5871 : 060 , 000 , 002 , 060 , 000 , 002, 107 
5877 : 124 , 000, 001 ,001 , 252 , 000,1 1 1 
5883 : 001 , 003 , 252 , 000,001 , 003,255 
5889 : 21 6 , 000,001 , 003 , 000 , 027,248 
5895 : 224 , 000, 00 2, 24 3 , 000 , 002, 227 
5901 : 126 , 00 3, 2 24 , 063, 2 55 , 252,1 68 
5907 : 1 27 , 255 , 255 , 063 , 255 , 255,205 
591 3 : 000 , 055, 2 55 , 255 , 252 , 255, 0 73 
591 9 : 255 , 254 , 063 , 255, 2 52 , 007, 093 
5925 :1 92 , 126 , 000 , 002,0 31 , 000, 1 32 
5931 : 002, 00 7 , 000 , 022 , 003 , 000, 0 77 
5937 : 002 , 007 , 000 , 002 , 015 , 000,075 
5943 : 002, 01 5 , 000 , 002 , 063 , 000,1 37 
5949 : 002 , 063,1 28 , 000 , 001 ,01 5,01 4 
5955 : 224 , 000 , 001 , 003 , 248 , 000,031 
5961 -. 002 , 255 , 128 , 000,001 , 063,010 
5967 : 224 , 000, 001 ,01 5 , 224 , 000,031 
5973 : 001 ,00 3,24 8 , 000 , 002,24 8,075 
5979 : 0 00 , 002 , 060 , 000 , 002 , 012, 167 
5985 : 000 , 032 , 003, 2 52 , 000, 001 ,129 
5991 : 01 5 , 252 , 000,001 ,031 , 240,1 30 
5997 : 000 , 001 ,031 , 192 , 224,1 27,172 
6003 : 000 , 001 , 249 , 252 , 000,001 ,106 
6009 : 1 27 , 240 , 000 , 001 ,1 27,1 92,040 
601 5 : 000 , 001 , 063,00 0,0 02 , 060,253 


6021 

:000 

,002 

,016 

,000 

,035 

,008 

, 1 94 

6027 

: 000 

,002 

,060 

,000 

,002 

,252 

, 1 99 

6033 

: 000 

,001 

,003 

,254 

,000 

,001 

,148 

6039 

: 01 5 

,254 

, 000 

,001 

,063 

,159 

,1 31 

6045 

i 000 

,001 

,254 

,007 

,003 

,248 

,158 

6051 

: 000 

,001 

,01 5 

,248 

,000 

,001 

,172 

6057 

: 063 

,240 

,000 

,001 

,063 

,192 

,21 6 

6063 

: 000 

,032 

,048 

,000 

,002 

,060 

,061 

6069 

: 000 

,002 

,031 

,000 

,002 

,031 

,247 

6075 

: 1 92 

,000 

,001 

,007 

,240 

,000 

,115 

6081 

: 001 

,007 

,252 

,000 

,001 

,001 

,199 

6087 

: 255 

,000 

,002 

,031 

,192 

,000 

,167 

6093 

: 001 

,007 

,240 

,000 

,001 

,001 

,199 

6099 

; 252 

,000 

,002 

,252 

,000 

,002 

,207 

61 05 

: 240 

,000 

,002 

,240 

,000 

,002 

,189 

61 1 1 

: 224 

,000 

,002 

,192 

,000 

,01 9 

,148 

61 1 7 

: 040 

,040 

,000 

,001 

,040 

,040 

,134 

61 23 

: 000 

,001 

,041 

,104 

,000 

,001 

,126 

6129 

: 041 

,104 

,000 

,001 

,009 

,096 

,236 

61 35 

: 000 

,001 

,009 

,096 

,000 

,001 

,098 

61 41 

: 001 

,064 

,000 

,001 

,001 

,064 

,128 

6147 

• 9 

Q 

O 

o 

,001 

,001 

,064 

,000 

,001 

,070 

61 53 

: 001 

,064 

,000 

,001 

,001 

,064 

,140 

61 59 

O 

o 

o 

fi 

,032 

,001 

,064 

,000 

,001 

,113 

61 65 

: 001 

,064 

,000 

,001 

,001 

,064 

,152 

6171 

; 000 

,001 

,001 

,064 

, 000 

, 001 

,094 

61 77 

; 001 

,064 

,000 

,001 

,009 

,096 

,204 

6183 

: 000 

,001 

,009 

,096 

,000 

, 001 

,146 

61 89 

: 041 

,104 

,000 

,001 

,041 

,104 

,080 

6195 

: 000 

,001 

,040 

,040 

,000 

, 001 

,133 

6201 

: 040 

,040 

,000 

,035 

,170 

,000 

,086 

6207 

: 002 

,170 

,128 

,000 

,001 

,021 

,129 

621 3 

: 085 

,000 

,001 

,021 

,085 

,000 

,005 

621 9 

: 001 

,021 

,085 

,000 

,001 

,170 

,097 

6225 

: 1 28 

,000 

,001 

,170 

,000 

,046 

,170 

6231 

:1 70 

,000 

,001 

,002 

,170 

,000 

,174 

6237 

: 001 

,085 

,084 

,000 

,001 

,085 

,093 

6243 

: 084 

,000 

,001 

,085 

,084 

,000 

,097 

6249 

: 001 

,002 

, 1 70 

,000 

,002 

,170 

,194 

6255 

: 000 

, 044 

,008 

,000 

,002 

,010 

,175 

6261 

: 000 

,002 

,006 

,128 

,000 

,001 

,254 

6267 

: 021 

,128 

,000 

,001 

,165 

,064 

,246 

6273 

: 000 

, 001 

,041 

,080 

,000 

,001 

,252 

6279 

: 01 0 

,084 

,000 

,002 

,021 

,000 

,252 

6285 

: 002 

,005 

,000 

,039 

,005 

,000 

, 1 92 

6291 

: 002 

,021 

,000 

,001 

,01 0 

,084 

,009 

6297 

: 000 

,001 

,041 

,080 

,000 

,001 

,020 

6303 

s 1 65 

,064 

,000 

,001 

,021 

,128 

,026 

6309 

:000 

,001 

,006 

,128 

,000 

, 001 

,045 

631 5 

: 01 0 

,000 

,002 

,008 

,000 

,040 

,231 

6321 

: 032 

,000 

,002 

, 1 60 

,000 

,001 

,116 

6327 

: 002 

,144 

,000 

,001 

,002 

,084 

,160 

6333 

: 000 

,001 

,001 

,090 

,000 

,001 

,026 

6339 

: 005 

,104 

,000 

,001 

,021 

,160 

,230 

6345 

: 000 

,001 

,084 

,000 

,002 

,080 

,112 

6351 

: 000 

,039 

,080 

,000 

,002 

,084 

,156 

6357 

: 000 

,002 

,021 

,160 

,000 

,001 

,141 
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6363 

005 , 

104 

, 000 , 

001 , 

001 

, 090 , 

164 

6369 

000 , 

001 

, 002 , 

084 , 

000 

,001 , 

057 

6375 

002 , 

144 

, 000 , 

002 , 

,160 

, 000 , 

027 

6381 

002 , 

032 

, 000 , 

026 , 

,008 

, 128 , 

177 

6387 

000 , 

,001 

, 010 , 

168 , 

,000 

, 001 , 

167 

6393 

043 , 

,224 

, 000 , 

001 , 

,01 1 

, 224 , 

240 

6399 

000 , 

,001 

,01 1 , 

232 , 

r 00 0 

,001 , 

244 

6405 

042 , 

r 1 6 0 

, 000 , 

001 , 

,002 

, 032 , 

242 

641 1 

000 , 

,051 

, 136 , 

000 , 

r 001 

, 002 , 

201 

6417 

170 , 

,000 

,001 , 

002 , 

,174 

, 000 , 

108 

6423 

001 , 

,002 

, 238 , 

128 , 

,010 

, 255 , 

1 45 

6429 

160 , 

,010 

, 255 , 

224 , 

,01 1 

, 254 , 

175 

6435 

1 68 , 

,01 1 

, 255 , 

224 

,042 

, 255 , 

222 

6441 

168 , 

,043 

, 255 , 

224 

,043 

, 255 , 

005 

6447 

232 , 

,01 1 

, 255 , 

224 

,047 

, 255 , 

047 


6453 : 160 , 042 , 255 , 224 , 047 , 255,01 2 
64 59 : 248 , 043,1 87 , 224 , 010 , 170,1 73 
64 65 : 1 68 , 255, 01 3, 01 3, 01 3 , 130, 145 




Novità Jackson. 


mOGft 


K DUMI AU 
JAOtftON 


La biblioteca che fa testo. 
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i AFRICA 

0 

5 

B 

I Una “Nave della Pace" in partenza dall’Italia 
£ porterà In Africa soccorsi immediati e aiuti 
per un domani migliore con il vostro contributo. 



La “Nave della Pace”: 
uno strumento nuovo 
per intervenire immedia- 
tamente là dove è neces- 
sario un urgente soccorso 
a popolazioni gravemen- 
te colpite da calamità na- 
turali. Non 
porta solo aiuti {/L. 
immediati ma 
anche strumen- ' 

ti di lavoro e "fi 

mezzi ausiliari \ ) 

idonei a realiz- \ s 

zare migliori 

condizioni di 

vita. 

Affinché questo risultato 
sia raggiunto, gli aiuti 
siano adeguati ed efficaci 
e la “Nave della Pace” 
possa partire a pieno ca- 
rico occorrono offerte e 
solidarietà da parte di 
tutti. Specialisti dei pro- 


blemi dello sviluppo han- 
no offerto consigli per la 
migliore attuazione del 
progetto. L’iniziativa ha 
ottenuto l’Ako Patronato 
del Presidente della 
Repubblica Italiana, il 
% I Patrocinio 

ddl’ONU, del- 
la Lega di So- 
àetà di Croce 
| Rossa e di 
Mezza Luna 
A . . . Rossa e della 

rfi Croce Rossa 

1 Italiana e il 

contributo del 
Dipartimento por la Coo- 
perazione allo Sviluppo 
del Ministero degli Affari 
Esteri. D Comitato 
“Nave della Pace” chiede 
a quanti comprendono la 
necessità ed il valore 
dell’iniziativa, offerte di 


mezzi e di beni indispen- 
sabili per i soccorsi ai jhì- 
ma necessità e per gK aiuti 
di sviluppo destinati a 15 
paesi ddr Africa. 


Nave delia Pace 


Da compilare in stampatello ed inviare 
in bulli chiusa a: 

Comitato Nave della Pace 
Vie Mujiim 4| - 00105 Rpma, 

Sl\ ANCH'IO VOGLIO AIUTARE 
LA NOTE DELLA PACE A PARTIRE 
CON LE STIVE PIENE 


Per questo bo dreUn di In* tire U mio 
contribuiti di 

ZU*. 10.0001 Ut. 50,000 
Z Ut. 15,000 _ III. 100,000 o pld 

fremite: 

_ An raito non iraaferibilr In cesta éo: 

Comitato Nave delta Pace 
I C/e ponile o, 151*5000 
Z Bonifico bancario a ardila 
dei c/e a. 5100/51 e/o 
la Cina di Risparmia di Roma 
sede centra k * 

Via del Cono. J10 - 00184 Roou 
Desidero una ricevali dei rato ^rrumniki. 





ADSR: con il VIC il suono del C64 



di V. Sltnrtroaì 


Ecco m voi u profrioot la BA- 
SIC, ehm mimmi. VAtt.ckOmc.y- 
SvctalaBoloAM dal C64 « “(Ira* 
mm VIC 20 eoa «•punilon* di me- 
■orU da 3 Kbyt«. 


C onte funzionano questi parametri in 
una normale tastiera musicale, così 
il volume {toc. 36878} del VIC 20 sì 
impegna a crearne una verosimile Imita* 
rione. 

E] tutto coi limiti di esecuzione del BA- 
SIC che però sono stati ridotti alTosso, 
Andiamo per ordine. Innanzitutto po- 
che DATA, che servono per le note e 
per I vaiorl di default. Poi lo schermo 
vi mostra la PRIMA VI BEATA. 

ADSR in alto, subito sotto la scritta 
LEVEL (livello), poi, ancora sotto, 
ATT. DEC e SUSTAlN e sotto queste 
parole due numeri (default 15 e 5), 
quindi la parola TIME (tempo), poi 
ATT. DEC. SUS, e sotto l valori (default 
1,3 e 8). Ancora sotto 1 segni * V* e " 
ed Infine la scritta p C-Ctrl (RET) 
-avanti*. 

Come comandare l'Invllappo. 

Sotto alcune delle parole sopraeltate 
stanno scritte le abbreviazioni usate per 
indicare quanti e quali tasti premere per 
cambiare un certo parametro. Quindi 
Shift-ATT.DEC, Cmdr-SUSTAIN, 
Ctrl-ATT., SHìft+Ctrl-DEC, 

CMdr+Ctrl-SUS.. Premendo solo que- 
sti tasti non cambia nulla, ma se tenete 
premuto, ad esempio, SHIFT e contem- 
poraneamente Il tasto vedrete che 
il numero sotto ATT .DEC decresce fino 
a 0. 0 è il minimo che tutti i parametri 
accettano. Premendo SHIFT e *+" ve- 
drete che il numero sale fino a 15, per 
poi fermarsi. 

15 è II massimo che I parametri ATT. 
DEC e SUSTAlN accettano (255 è il 
massimo per gli altri parametri). 

Questi numeri sottintendono il livello 
massimo che viene raggiunto dall* Attac- 
co e tenuto dal Suataln (Sostegno). 

Gli altri valori sono il tempo (In uniti 
Jlffy Clock- 1 sessantesimo di secondo) 


che II volume deve impiegare per rag- 
giungerò un determinato valore a passi 
dì 1: cioè, se ATT.= 1, allora il volume 
Impiega tanti sessantesimi (almeno) di 
secondo quante sono le uniti comprese 
nel parametro ATT. DEC. per andare 
da 0 ad ATT. DEC. 

Se ATT. o DEC. o SUS. sono uguali a 
0 (anche non tutti insieme), il program- 
ma provvede, tramite variazioni sulle 
variabili, a rendere più veloci 1 tempi di 
esecuzione. 

SECONDA VIDEA TA. Gli effetti. E sta- 
to usato in questa sede 11 generatore dì 
rumore bianco per ottenere un “sJmiUa" 


di alcuni effetti (come il vibrato) e inven- 
tarne altri (come il vento). Cioè sono 
stati simulati vari effetti tramite la digi- 
tazione di note stonate tra loro. Qui voi 
dovete scegliere un effetto fra 5 (che 
comunque potr ete escludere in esecu- 
zione col tasto CTRL). 

INFINE. Viene mostrata una videata 
contenente In alto i valori da voi scelti 
nella prima videata con I controlli a di- 
sposizione (shJft-cmdr*etrl*“+ p - p - P ), i 
generatori accesi /spenti (bianco o nien- 
te - spento, numero - acceso), I tasti 
da usare per suonare e cioè {da Dodie- 
sis a Do diesis per un'estensione di 2 ot- 
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fave): 

12 456 89 +-£ins/dd 
QWERTYUJOP @+!dr/home 
Sotto viene scritto il nome dell’ effetto 
scelto e un promemoria per i vari con- 
trolli di questa pagina. 

Il programma è interamente in BASIC 
e ia uso esclusivo, per suonare e can^ 
biare suono, dei comandi e funiioni PO 
KE, PEEK e di variazioni e operazioni 
tra variabili. 

Per tornare alia pagina delle variabili 
dalla pagina della musica premere con- 
temporaneamente SH1FT e CTRL 


Le parti essenziali del listato sono due: 
quella delle "DECISIONI* parte dalla 
linea 100 e finisce alla linea 235, quella 
del suono vero e proprio parte dalla 
linea 390 per arrivare alla 670. In que- 
sti due blocchi di linee è racchiuso il 
buon funzionamento del programma; le 
altre servono in massima parte per pre- 
sentare li programma. 

Buon divertimento, 

P.S. Mettendo la variabile ATT. DEC a 
0, o comunque sistemando le variabili 
in modo che ATT. DEC sìa minore di 
SUSTAIN, avrete delle variazioni nel- 


l'inviluppo, Queste variazioni possono 
sia risultare indesiderate che utilizzabili 
altrimenti. In pratica alcune volte 11 vo- 
lume può andare a zero (0} senza passa- 
re per il release oppure fermarsi a zero 
durante 11 decay, Questo “fastidio" si 
può eliminare mettendo un'opportuna 
linea tra la 200 e la 245 del tipo: 225 
1F AD <5LTHENAD«SL, 

Abbiamo volutamente lasciato l'Inghip- 
po, perché, volendo, si possono sfrutta ‘ 
re queste sue "variazioni nell'inviluppo" 
per creare musica. Vìva gii Inviluppi 
pseudo-casuali. 


ADSR per V1C 20 


5 PRINTCHR$(U7) ;CHRS(8Ì ;CHRS(5) ;:PGKE36B 
79, 1 1 0 : L» 8 1 64: GOSU 8 4 0 0 0 ;rem 190 

10 D IMADSR ( 6 ) ,S(4) ,NEI(4) ,ES(4) ,NOt (64) ,C 
Ol(6) , RI I ( 6 ) ìV-3687S:V*«0 :rem 248 
20 FORT- 1 T04 : S (T) -3687 3+T: NEXT: FORT- 1T06: 
READADSR(T) ,C0I (T> ,RII(T) : NEXT 

: rem 1 99 

30 FQRT-0TQ 1 5 : READNOt (T) ,N0t (T+40) :N0t (T+ 
16) *0: NOI (T+32) -0 : NEXT : FGRT-0TO4 : READN 
El (T) : NEXT :rem 151 

40 NO % (64) - 0 : FORT- OTO 4 : READ E 8 (T) : NEXT 

*rem 228 

50 POKE368 69 ,242: FRINTCHRS 1 9 £?C 9 CHS S 
T 8 ) " ADSH * i PRINT i PRINTSFC 3 CKRS 1 3 "L 
EVEL » 11 irem 

53 POKEV, 0 :rem 73 

55 PRINT : FRI NT 11 A { 2 T j : DEC" S PC £ 8 ] "SOSTAI 
N" ; : PRINT" SHIFT" SPC (TTT"CMDR" : rem 20 
60 PRINTSPC (6) STR$ (ADSR ( 1 ) } TAB ( 1 2 ) STRS ( AD 
5R (2) ) : rem 32 

63 PRINT: PRINT : PRINTSPC (9) CHR$ (18) " TIME " 

:rem 34 

65 PRINT: PRINT" A t 2 T} . " SPC ( 5 ) "DEC . " SPC [ 5 
) "REL* " f : PRINT" CTRL" SPC (5) "SH+C H SPC{5) 
"CH+C" " : rem 103 

70 PRINTSTRS (ADSR (4) )TAB(9)STR$ (ADSR (5) ) T 


AB{1 8) STRS (ADSR (6) ) : PRINT :rem 7 
75 PRINTSPC (6) n + "SPC (8) " » H ; PRINT : PRINT"C 



-CTRL " ; SPC ( 4 ) " <RET> AVANTI " 

: rem 

2tf6 

100 

A-PEEK ( 653 ) : IFÀ-3oRA-7THEN1 00 




: rem 

179 

ilo 

PP-PEEK (197) : IFA-OTHENl 80 

: rem 

197 

120 

IFPP- 5THENADSR { A) -ADSR (A) +1 

: rem 

116 

130 

IFPP-61 THENADSR (A) -ADSR (A) - 

1 : rem 

169 

140 

IFA-) ORA- 2THEN1F ADSR (A) >1 5THENADSR (A) 


-15 

; rem 

208 

150 

IFA> 30RA< 7THENIFADSR (A) > 25 5THENADSR ( A 


J-2S5 

; rem 

68 

1 60 

I FADSR ( A) < OTHENADSR ( A) -0 

: rem 

166 

170 

RI-RI % (A) :CO-COI(A) : GOSUB5000 : PRINTST 


RS (ADSR (A) ) ; " " : GOTO 100 

: rem 

7 

1 80 

; 

: rem 

21 1 

190 

s 

t rem 

212 

200 

IFPPOI 5THEN 1 00 

: rem 

97 

2)0 

AT-ADSR ( 4) : DT-ADSR ( 5 ) :RT-ADSR(6) :SL-A 


DSR ( 2 ) : AD- ADSR ( 1 ) :DV-1 :DD-1 

:DR-1 




: rem 

1 88 

220 

IFAT-OTHENDV-AD 

; rem 

176 

230 

ifdt-Othendd-sl 

t rem 

1 88 

235 

I FS L- 0 ANDDT* 0 THENDD» AD 

1 rem 

134 

240 

IFRT-OTHENDR-SL 

: rem 

217 

245 

I PSL- 0THENDR- AD 

: rem 

1 89 

247 

PRINTCHRS (147) ; : L-7878 : POKE368 79 , 

107: 


POKB36867, PEEK (36867) ANDl 29OR(20) 

:GOS 


UB4000 

; rem 

154 


2 50 PRINTSPC (9) CHR$ (1 8? " ADSR " : PRINT: PRINT 
SPC(4)CHR$ (1 8) "NOI SE EFFETTO" 

:rem 64 

260 FORT-0TO4 : PRINTES (T) SPC (8) STRS (T+1 ) :N 
EXT : rem 242 

270 POKEl 9B,0:WAITl98,l ;G£TA$:SC-VAL(A$)- 
l:IFSC<0ORSC>4THEN270 :rem 243 

290 PRINTCHRS (1 47) ; :L-B1 64 : POKE36879 , 1 1 0 i 
PQKE36B67, PEEK (36867) ANDl 290R46;GOSUB 
4000 :rem 62 

300 PRINTCHRS (1 B]SPC(9) "ADSR" : PRINT; PRINT 
" AT : DE SIJS. T* A T.D T.R"; ; rem 164 

303 ZS -STRS (AD) :XS-STRS (SL) :VS-£TRS (AT) :N 
S-5TRS DT; : MS -STRS (RT) : POKE36869 ,240 

:rem 94 

3C5 PRINTCHRS (1 58) ZSSFC f 6-LEN ( Z$ ) )X$SPC(4 
-LES [ XS J ) VS SPC ( 4- LEN t VS ) ) NSSPC ( 4-LEN ( 
NS) ) MS ; rem 116 

310 PRINTSPC (1 1 }CHR$ (5) ;CHRS (1 8) ; "GENERAT 
ORI ™ :rem 166 

312 PRINT irem 35 

315 PRINT" 12 456 89 +-£ "CHRS (1 B ) "T" : PRIN 
T" K 2 L> ) l< 3 L> 3 l< 2 L>3 



(< 3 L>] [<L>]": PRINT" [<H>] [ 14 8} 

n 



:rem 

159 

320 

PRINT" QWERTYU IOPB * t "CHRS (18) "$" ; PRIN 


T" DEFGABCDEFGABC" : FRI NT 

trem 

179 

325 

PRINTSPC (11) CHR$ (18) "NOI SE 

EFF * 

SPC 


{ 11 ) ES ( SC ) SPC ( 1 ) "CONTROLLI 

: PRINTSPC 


(29) "N * EF" 

: rem 

177 

330 

PRINTCHRS (146) "SHIFT CMDR 

SH-h:m CTRL" 


; S PC ( 2 ) "1 "SPC (5) "2"SPC (4) " 

3 H SPC(5) 

fi^n 



: rem 

68 

335 

PRINT" BASSO ALTO TENOR" : PRINT"CTRL+SH 


IPT - MENU'" 

: rem 

30 

390 

A-0 iGOTOSOO 

: rem 

82 

400 

IFPEEKtl 62) CRTTHEN500 

: rem 

216 

410 

Vl-Vl-DR: I FV% < 0THENV% « 0 

: rem 

82 

420 

POKEV , VI : POKE 1 6 2 , 0 : A-0 

; rem 

B 

500 

S-PEEK (65 3) : ONSGOTO 7 00,700 

,700,700 

■,75 


0 

: r em 

63 

510 

P-PEEK(1 97) : IFP-64THEN400 

: rem 

1 89 

520 

IFP-QTHEN590 

: rem 

209 

540 

POKES ( 1 ) , PEEK (S(l) ) ANDl 280RN0% (P) : 

POK 


ES(2) , PEEK (S (2) ) ANDl 28QRNO% IP) 




: rem 

175 

550 

POKES (3) , PEEK (3(3) ) ANDl 2 SORNO % ( P ) : 

POK 


ES (4) , PEEK (5 (4) ) ANDl 2 BORNE4 ( SC ) 




; r em 

244 

560 

Q-P 

:rem 

121 

590 

QNAG0T065Q 

: rem 

80 

600 

IFPEEK (1 62)<ATTHEN50Q 

:rem 

201 

610 

Vl-Vl+DV: I FVl > ADTHENA-1 iVl 

-AD : GOTOSOO 



: rem 

243 

620 

POKEV, VI: GOTO 500 

: rem 

204 

650 

1 FPEEK (162) <DTTHENS00 

: rem 

209 

660 

VI -VI» DO: IFVl<SLTHENVl-SL 

;rem 

41 
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670 POKEV, VI ! POKEl 62,0 :GOTOSOO : rem 47 
700 IFSH(S) -OTHENPOKES (S> , PEEK ( S (5 ] ) AUDI 2 
7 : POKE7820+S*3 , 1 60 : SH (S) :GOTO510 

;ren 245 

710 IFSH<SWTHENPOKES(S) , PEEK (S (S> ) ORI 28 
iPOKE?820+S*3 f 1 76+S:SH(S>»0:GOTOS10 

irem 74 

750 PRINTCHR$(147} :G0SUB4OOO : PORT-lTO#: PO 
KES (T) , 0 : NEXT: GQT05G srem 93 

3000 END : rem 154 

4000 F0RT-OTO21 : POKE7680+T, 64 : POKEL+T, 64 : 

NEXTrRETURN srem 34 

5000 POKE781 , RI : POKE782 ,CO : SYS6552Q ì RETUR 
N srem 120 

6000 DATAI 5, 6, 7, 5, 12, 7,,,, 1 ,,15,3,9,15,8, 
18,15 : rem 222 

6100 DATA3 ,9, ,28,43,49* ,61 ,71,74,80,83,90 
,92,96, ,,15,22, 33, 39, 53, 57,65,68,, 77 

,85 : e em 1 6 3 


6110 DATA86 , 94 , , ; rem 67 

6200 DATAI 27 , 1 26 , 1 25 , 1 24 , ! 23 , * BRASS 

{ 6 SPAZI }*," VIBRATO! 4 SPAZI 3", "TRE 
MOLO! 4 SPAZI } *• , "VENTO { 6 SPAZI}" 

: rem 138 

6210 DATA" SOFFIO { 5 SPAZI}" ttem 237 


t'ciSratì . 
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STATISTICA A UNA 
DIMENSIONE CON IL 
COMMODORE 64 

di U. G. B«ru|il 
Grappo Editoriale Jackion 



Crescendo la diffusione deUTiome coiti' 
puter, cresce anche il numero di quelle 
persone, che, stanche di utilizzarlo uni- 
camente per svago e divertimento, Ini' 
zia no ad orientarsi verso applicazioni 

E ra fiche del proprio sistema. 

Ina delle applicazioni forse più ‘conge- 
niali" ad un computer è proprio la sfati* 
stìca. Essa infatti, trattando una Larga 
mole di dati e cercando In essi quelle 
conelazlonl e similitudini che permetto- 
no di sintetizzare I risultati in un sempli- 
ce grafico od una sola tabella, può esse- 
re velocemente ed affidabilmente gesti- 
ta dal computer. Per ottenere buoni ri- 
sultati occorre tuttavia conoscere alme- 
no I fondamenti della statistica e scrive- 
re un programma che permetta al cal- 
colatore di eseguire tutte le operazioni 
necessarie sul dati che Inseriamo. 


Questo libro offre sia l'uno che l'altro, 
spiegando in modo didattico e di facile 
comprensione i principi basilari della 
statistica e fornendo in appendice un 
programma per C64 che vi metterà In 
grado di trattare in pochi secondi grandi 
masse di dati, sintetizzandone i risultati. 
Tra l'altro, il libro comprende anche 
una serie di esercìzi statistici risolti con 
il calcolatore che permettono di com- 
prendere più a fondo gli argomenti trat- 
tati. 

Un volume quindi senz'altro didattico - 
gli argomenti trattati coprono circa la 
metà del primo capitolo di un qualsiasi 
testo universitario di statistica (disugua- 
glianza di Tchebycheff esclusa) - che 
contribuirà ad affascinare ed avvicinare 
a questa disciplina molti possessori di 
C64. 

COMMODORE 64 
A SCUOLA 

di J. Scrive» « P, Hall 
Grappo Editoriale Jackeon 

Se è vero che* prima o poi, ciò che 
accade negli Stati Uniti accadrà anche 
da noi, presto vedremo la comparsa 
massiccia dei computer tra i banchi di 
scuola. 

Del resto la maggior parte degli utilizza- 
tori di home computer è tuttora com- 
posta da ragazzi In età scolare, e non 
sarà quindi particolarmente traumatico 
passare dal quaderno a quadretti alla 
tastiera di un calcolatore. 

Questo libro si rivolge a coloro I quali, 
con poca o nessuna esperienza di pro- 
grammazione, desiderano imparare ad 
usare II C64, sviluppando nel contempo 
delle capacità di ragionamento logico- 
matematico: li C64 infatti, per sua natu- 
ra, possiede capacità e potenzialità mol- 
to efficaci, che purtroppo non sono ac- 
cessibili attraverso semplici istruzioni 
BASIC, ma solo con lunghe serie di 
PEEK e POKE. Il libro mostra come 
superare questi Inconveni enti e c ome, 
una volta compreso qualcosa di più sul 
funzionamento del C64, si possa essere 


in grado di scrivere subito interessanti 
programmi didattici. 

Destinato a studenti, Insegnanti e geni- 
tori, “Commodore 64 a scuola" è strut- 
turato con t primi due capitoli che pre- 
sentano programmi di supporto all* Inse- 
gnamento di concetti matematici ele- 
mentari; i capitoli seguenti, Invece, sono 
dedicati ad applicazioni di tipo linguisti- 
co. dairortografla alla creazione di testi 
originali. Infine, l'ultimo capitolo mostra 
come sfruttare le tecniche di simulazio- 
ne per spiegare concetti astratti, quali 
la probabilità, o per descrivere sistemi 
complessi come una chiusa od una cen- 
trale elettrica. 

1 listati contenuti sono di ottima leggibili- 
tà e contengono pochissimi caratteri di 
controllo, risultando così di facile com- 
prensione e digitazione anche per I me- 
no esperti. 
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V libri vengono off orti 
con II 10% di «conto 
«ni prezzo di copertina 
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A Cdc* ìa Vt nata, m proùnda d Ve- 
rste, si è formato un e Jub del CBM b< 
per scambi di Erog an e » », «pemenz*, 
cemÉgfc. Dkponfcà dlvnt novità, ir» 
nudi e otre ! 000 prograrmu. Mkhek 
Dsnew ■ Vk Gioacchino R assiro 
370*4 Cotogna Veneta <VR) Tel. 
0442/85287 


Vendo, cambio aoftwtre 4 tutti ì fati per 
C64. Meritisene pochi A tolti i gentn e 
per tutti i gusti tota sucateel la( L 2.000* 
programma), Scrivere o tehfonare ore 
pesti. Alessandro Bacnaaeo Via Bog- 
po, 41 ■ 12 1 00 Cuneo Tei. 0 17 1/62822 

Compro, vendo, cambio giochi per 
CBH64eVC20.Dispongoanchcdive.Ti 

prograitmi utility per bnguaflkomacchi 
ne « d un libro. Per h fate dri giachi (L 
LOCO cedatelo} tekfonsre oppure seri 
vere i;Gucon» B s iga iiiii Vìa Martiri 
dtla Ubarli, 99 MOlOSuWwnotAR} 
Td. «75 468891 

Vendo e cambio programmi per C64 d; 
vario genere Possiedo molti giochi in 
LM. Annuncio sempre vàlido. Ragazzi 
rivale, rispondo a luti L Ncoh Gufino 
Viale Terr acari, 63 961Q05iraciisa TeL 
0931/39939 

Bccesonafa; per CBM 64 uendocaeett 
te con 8 utiity Ire cui Svnòns' BASIC, 
word processe*. Vocabolario, c/c * L. 
30000 più spese postai contrassegno. 
Spedisco riott re ÌC gemesse hi mi spedi- 
sce 10 gienet, Alessandro Stasi \fiaDei 
Pelaghi. 1S6 67 tOOUvomo 

VendoaL 50. OOOcadaunac assetta con 
»ochi (Pàcmsn, Decathlon. Popeye. 
Dankey Kong, *ec.) ed uhfas (word 
processing, data baie, ecc) per C64. 
Inviare ktteracon (rane obollo per rispo- 
sta per ricevere fata Roberto Garibaldi 
Vk Della fimmi. 60 20062 Monza (MI) 

Vendo VJC 20. con cspansioneregplebt 
k 3-8-16 Kbyte, dotato di manuale ed 
alimentatore, tartridgi Sargon 8, alcu- 
ne essatele di game-*, bbro "Aita scopar ■ 
te del VlC 2CF e L, 350.000 trartabii. 
Scrivere o consanare tekfcmicameni e. 
Felice Lanieri i - Via Trento, 4 Angone - 
25040 Dario Boario Tenne (BS) - Tel, 
0364 51001 

Vendo conce ompk lo^Pannelt Solari* 
a L 320.000 Per CBM 64 vendo 300 
programmi di utifay (non orifanai) a L 
500,000; oppure 20 programmi. ognuno 
su cassette, a L 26 000. Su 4ato L 
28 000, Specificare. Spedinone con- 
trassegno. Roberto Mangioni - Vìe B. 
Buozr, 4 00019 Vefatri (RM) Tel. 
06 9636898 

Compro, cambio . vendo prognmmiper 
il C64 e per ù Vk 20 Per maggiori 
irrfórmacon: temere a; Massimo Te 
basso Piana Moiìnrrt*. I ■ 12038 Savi- 
gBanofCNl 

Vendo cefali ore completa "Program" 
a L. 40 000 Pietro Mali ■ Via Scalo 
$, Lorenzo, 47 00185 Rome ■ Tel, 

0* WS 167 



Vendo per VlC 20 o CBM 64 20 o piò 
pi agi an sili in cassetta adisco ecciti su 
una Iste ti circa 1 OSO programmi. Scri- 
vttsni, invierò a (iteti una fata gratis 
(costo di un cassetta L. 6.000}, Andrea 
Abbruciati - Via Tomaso SiÀari, 1 ) ■ 
00143 Roma 

Vendo programmisi d*c ooc&isett* Ira 
cui Decathlon., He* Game*. Easy Script; 
cambierei volentieri ì rifai programmi 
con Per Speed Simon* Lombari - Vk 
Emanuele ■ 55041 Camaior* t LUI - TeL 
909728 

Vendo circa 1 .000 programmi sia nastro 
che Su daco per C64. richiedere fa mia 
Hata, prezi: atramente basa; ex Zanella 
to - Condominio Ciclamino - 1 0090 Ro- 
mano Cacarne (TD) 

Vendo tutte k ultime novità per C64. 
Giochi, uthty, gestiortek. palici, musi- 
cal, linguaggi su disco o nastro. Turi» 
Tape, furbo Disk. Copy 190 .Chieder* 
elenco. Stefano Bare arali Vk 8, Buoi 
li, 8 05021 Acquatparte (TR) * Tel. 
07*4/930387 

Per la prtina veti te in lufa vendo pro- 
fanimi orfani e nuovisarmi per VlC 20e 
C64 Per la fata inviare L 500 Giovarmi 
Hamam - VfaG- D'Anounno.34 800S3 
CHkfammarediSubk ( NA) 

OccaasiofRUima; vendo VlC 20 in buo- 
rw stato a L. 120 000 trattati, fa più 
regalo 1 cariridge "Cosmk Cruncher" 
(Pacman) più 60 giocb tu cassetta, tra 
Cué La Rena, Attacco Spasale. Stila, 
Attacco Afa no, I cale» . Tekfonare dal- 
le 1335-14 Salvatore Mmarrf. Vm Ro- 
me. 187 95041 Catte storte (CT) - TeL 
0933/21107 

Vendo giochLulifity.copfatoTiperCBM 
64 ka su nastro che su disco. Se riverrò 
teiteofuje ore 19 21. Francesco Batik 
Via Ortigsra. 14 - 33100 Trevi» Tel. 
0422/579627 

Si è coti ri urto il Commodore Oub"VaL 
d chiana"; con iWràion * d L 30 000 si 
ha diritto ricevere penosamente tutto 
il software dsponbàe a condì rioni van- 
taggiose. Si attenuano acquisti, vendite 
e scambi programmi di ogni genere. Per 
informazioni e richieste della fata pro- 
fane™ scrivere (unendo L SOOfaftan- 
cobol) a: Commodore Club Valichi*- 
ne -Loc. Paianolo, 2 53O40RigQmapiù 
(5(1 -Tk. 0677/663550 

Vendo, cambio per C64 olire 1-000 prò 
vammi, tutte k mtgiori novitàa baskak 
mi prezzi. TrafapnfalÉMnlswdb 
co. Per richiedere elenco telefonare o 
scrivere. Paolo Gaiio Vk Garibaki, 83 
96014 RondiatSRji Tel 0931/94)066 


Vanda VlC 20. "Enirodurione «I BA 
SKT pene ] e 2 0n àafanoX "Q bòro del 
Commodore VlC 20“, 'Giochi per I 
«atro VlC 2CT, cartuccia ~Jupiter L*n- 
der* e numerosi giochi su cassetta. I 
tutto a sole L 200.000. Telefonare ore 
pranzo. Roberto La Torre ■ Vk Fiume, 
10 70043 Monopoli (BA) - TeL 

080/748355 

Vendo, cambio ì minori programmi 
per CBM 64: videogame*, utièty, gt 
eternai. Inchieder» la fata, perni site- 
reaaantkeénL Dkponibii circe 400 pro- 
grammi sia su tfaco che eu nastro. Giu- 
seppe Di Leto - Corso Europa, 13 - 
66064 Vasto (CH) - Td. 4393 

Compro G64 a prezzo da trattare. 
Vendo VlC 20 più espansione Vtxen a 
prezzo da concordare. Allego numero- 
si programmi. Telefonare ore pesi: o 
scriver*. Daniek Monóattì - Vk Fonte 
Benedetta. 18 - 53100 Sena - TeL 
0677 47123 

Vendo VlC 20 più registratore. 3 car- 
trldge (Cosmfch Cruncher, Raid On 
Fort Knox, Garden Wars), 40 »ochi su 
cassai la a L 300 000 Donati - Vk A. 
Vivaldi. 18 - 21013 Gallare le (VA) ■ TeL 
799480 

Vendo VfC 20 pài repstratore. 9c— «fa 
te gioco. p*kfas> cartuccia “Star Pos i“a 
L 280.000. Ivana Fb no Piazza Diodoro 
Sicute, 8 92100 ^risento Tel 

0922/21705 

Cambra t vendo programmi per C64. 
Inviate le vostre fai* o richieste. Da no 
Pausm Via Pascoà. 24 34)29Tm*te 
Tri 04CF773766 

Il Club 64 di Mon lagnane (provincia di 
Padova) recentemente costiiintoai ha le 
migliori novità del aofaMre. Telefonare 
alfa 0*29/82469, Cario Ferrari ■ Casella 
Pbriak6 - 35014 Montegnan* ( PD) Td. 
0429/82*69 

Vendo per CBM 64 centmek é pro- 
grammi A t tati i bpì e di al te quahtà. 
Praz zo mediadi unprogrsmmaL 3.000, 
50 programmai a sedie L, 100,000. Per 
ricevere)! fate scriviotddona. Stefano 
Cannali Via Riuqtorio, 303 - 06060 
Asw(PG)-Tcl07V8]41l2 

Vendo prog ramm i per CBM 64. Giochi 
angina! a prezzi favolosi. Aspetto k 
vostre fate da tuttftaii. Ne ho più et 
1000, tuniorigmal e coniti ruzwnrmgk- 
w. Giuliano Pek» via G. Tomkl/]0 
00151 Roma- Tel. 0^5280434 

Compro software pcrC64apmd modi- 
di. favìatemik vostreiait. Programmi su 
cassetta. Rocco ColueceBi ■ viali Gfan- 
ló, 118 - 7 1 IQOFoggk - Td. 088 1/76 1 1 4 

Favoloso nòo programmi per VlC 20;a 
L 30.000 unanquesttueproposlt: 1)70 
programmi in ven»ncbase;2}30pro- 
grammi a 3-8- 16 Kbyte di espansione; 3) 
40 programmi per 3 Kbyte super «xpan- 
der . A acdte si possono avere giochi ed 
utility. Luciano Bagtoni Via Odia Ver 
ite, 20 -00)4) Roma- TeL 06/8 1857 10 


Vendo programmi per C64. Tutti origi- 
nei; ultime novità; arrivi «ettimandi 
dallnghdierra Dfaportibdi su dko o 
cassetta, (^r irJòrrnazioni rnokmTÉi a. 
Grufano Rfk» - V» Tonfai, 10 - 
00151 Róma - Tei 06/5280434 


Vendo giochi su cassette per CBM 64 a 
L. 2500 {Calcio. P« Man, Pois Pori- 
hon, Donkey Kong, ecc). Inoltre, ogn 4 


programmi t 

Rivolgerli a: Daniri Clone Vk £ 
Bdduna. 73 ■ 00136 Roma Tei. 
06 3452 1& 


Cambio, vendo giochi «t utttty di lutili 
tipi. Prezzi modici. Spedire L. 300 per 
avere li fata oppure leldonale ore pa 
tei Andrea Santini Vkle Bdko Rione 
Bollano, 21 - 72100 Brindi* Td. 
0831 *71925 


Vendo video^ocht per VtC 20,<faponà 
bià anche su cassetta. Inviare L 1,000 
per ricevere b fate, PWrcario Ondi 
Vk Cavour. 72 10046 Ploesasaco 

(IO) ■ Tel. 01 1/9064948 

Vendo t cambio programmi su casaer- 
te o deco per CBM 64. Dfanr^o di 
fadeogame» come Zasiu». Frog«r 
3D, Alzec, Soccer. Bashet "One On 
One* 4 e “Tre Contro T«* ( Pbpiye, 
Pàcman* Karaté ed utifay come S» 
mona“ BASIC. Ex-BASC, Copy (con- 
tro i Lo ad Em* ). Mitek Master, tutti 
oridnaE e m TurboTape, a non più di L 
15.000, Materna serietà. Alessandro 
Liberatore - Vk Ferdinando Ac ton, 76 - 
00122 Ostia (RM) Tei 06/567558 


Vendo t cambio programmi d tutti i 
tfa Cerco programmi per le «ebani e 
sp r o na mi nanom dri dkehi. Rispondo 
a tutti. GìHioarlo Ruiu - Via Giordano 
Bruno. 17 07026 Obte (SS) Tel, 

22030 


Abbiamo fondato 9 Commodore Club 
per scambi e di pochi ed uttttyper VlC 
20 e 064. Per l'adesione mandare à 
osItti elenco e noi manderemo i no 
«io Se hai un VfC 20 lekioni afa 
0622/5578280 e chiedi d Thomas. Se 
Mi un possessore di C64 scrivi a: AJber 
to Castagnini Via Cantivi. 6 42032 
Busana (RE) 

Cambio pro^ammi per C64. Posseggo 
otite ISO giochi ed utity. Vendo motti* 
cassetta con 50 giochi al prezzo di L 
10,000. Cerco materiale td inguaio 
maochirte. Salvatore Lenza Via C. 
Medi termo, 34 87029 Sceka (CS) - 
Tel. 0985/20177 

Vendo e cambio programmi per C64 
(giochi), ne possiedo etica 50 Prezzi 
ragionevoli. Inviate fa vostra fata, ri- 
cambierò inviandovi 5 k mia. Rispondo a 
tutti; rarmuncio 4 sempre vaàdo. Scrv 
vwrm o trieforwe ore pasti a- Emauek 
SJvet tri Bazze Maialaste, 2 47040 
Verucduo (FO) TeL 064 1/6680*0 

Vendo VlC 20 con alimentatore, cavi 
colegamento « reiteratole più 5 cas- 
sette. c fasciate con 5 pochi, a L 
400 000. Massima serietà alo Gusre 
•chi Vìa Cartektlo, 1 - 43010 Parma 
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Condro (se rara occasione} ««rnpfcv 
i# per VIC 20, iK&m* fari* I Wnttì 
n-ùns-na Offro est* L. 200000. Pralwv 
(rimante tirilo eoo prason* radenti 
ntk tra Veneri*- Gaudio GrfaPlstra 
Ptezza Mercato, 24/t Absno Tipik 
(PO) 


Dugongo d citi «0 programmi per 
CBM 64 i sono disposto a rander! o 
scambia ite Tra il software ho anche 
-SAM' (tent, vocali), “Tot Prete*** 
naf. “Doodte* {ottimo programma di 
grafica), Trielonare solo ubato 
domenica' lunedi. Renato Vsiducl ■ Vi* 
Gaspare dri Fosso «9100 Raggio Ca- 
labria Tal. 0966/330600 


Vendo per €64 castella con 30 pro- 
grammi comeS A.M. Recitar. Solo 
Fighi Fox . Decathlon. ZaxHon, Butger 
Time, Moon Bug». Pit Stop, Poif frii- 
tion, Koala frinì**, Smorte BASIC *d 
altri programmi originai. Tulli teTurbo 
Tape (compre») a L 50.000. Preferi- 
trimentt Trailo con le prownc* di Mo- 
dena a Bologna Marco Cfarnomm 
Va Ponchi*», 54 4 1015 Catturane o 
Ernia (MO) Tel 069/926079 

Vendo VIC 20 temmuovopiù manna!, 
una dee» di giochi, ulléy, moltissimi 
listati. 2 csrtrid^ (Juprttr Under. 
Scacchi). mohi*MT)« irmele, joystick 
stupendo. interface* coiegatéle i 
T't 1 ****' registratore a L 230000 trat 
Label. Antonio Marni* t - Via Gramsci, 
123 25021 Bagnolo Mela (BS) Tel 
09&62O4ZO f l*ttonare I* sera) 

Vendo pr o grammi per VIC 20, moki 
dei quali inediri, tra cu; Calcio. Grand 
Pria. Cbrat. eoe frr ricever* Mali 
eiviare L. 1.000 a; Jerome Kubcs - Vis 
Travet loft. 108 36061 Baeaano Del 
Grappa {VI) 

Vendo per VJC 20 prograrreni copiati 
da carindgt che richiedono «pani» 
m 16 Kbyie a L 5 000 cadauno Vendo 
maitre schema elettrico generala dal 
VIC 20 a L 3 000. Telefonare dopo k 
15. Enrico Cuoco Via Milano. 125.12 
20024 Gerbagnat* Milanese (MI) - Tal. 
02/9959088 

Vendo, cambio videogame! ed udHy 
per CW ; direttamente darAmerica il 
gioco dele Oimpiacfi con 10 »r e, ven 
do anche 23 lezioni di BASIC su casset- 
ti a L 50.000. Inviare l'ateneo oppure 
telefonar* ■: Gianni Simone Viale Fra- 
rovo. 25 81043 Capua (CE) Tal 
0823/96232 

Pbt CBM 64 vendo, cambio più d 300 
programmi. Tutte he ufemw iwàk ri- 
chiedere te lista. Rispondo a lutti- Si* 
{ano Castagni Va Bmzofa. 14 
43013 Langhirano Tel 0621/K3123 

Vendo, compra, cambw software prr 
CBM 64. Cerco a pr«n modo Tubo 
Tape. Scrivere o rettonare ora pasti. 
Stefano Sampeol** Via Aldo Moro, 
15 6302 L Amandola (AP) - Tei 

0736*7462 



Cambio e vendo a prezzi mori pr& 
marrani di ogni genere per Commodo- 
re 64. Alessio Alessi - Via G. D'Annun- 
no, 98 ■ 94015 Piazza Mannarini (EN) - 
Tel. 0935/80(297 

Vendo )0 giochi per VIC 20 inespamo 
a L. 9,000, in omaggio un programma 
listato. Assicuro massima serietà. 
Francesco Trànbofc- Va Della Vittoria, 
32 88023 Sorarato (CZ) Tri. 

0967/21660 

Vendo programmi per CBM 64. Ho 
quasi 140 programmi d giochi ed utility 
(quasi tutti n LM) il fantastico prezzo 
di L 2-500 cadauno, Pagamento incon- 
trastegno, frr lista scrivere o ttfebi* 
r« a; Giovarmi fantini - Va Piar. D'Qiv 
te, & 53100 Siena - Tel. 0577 288630 

Vendo per CBM 64: Seno™' BASIC 
più sirunoni ■ L. 40000, data base a L 
25.000 Turbo Tape, Zaxxon, Jump- 
man, Bdtefdo. Masi er64 . Se ■ Wqtf . Sìa 
ben ad altri a L- 10 000 cadauno. Retro 
CnNiti Vìa Casi ahi, 28 - 73037 
Pogge* do (LE) 

Vendo o cambio ceca 200 programmi 
d ogn tipo pc* i C64 (traquesti: Magic 
Desk, Assembler Commodore, Si- 
morte BASIC e molti videogames). 
Ce reo, in particolare. SA.M- Recitar, 
Easy Script * Solo Flighl Isolo su na- 
stro Inviare t/o richieder* liste ic Ivo 
frette V» Dei Pialliti, 62 33010 Rte 
no di frgnaceo (LJD) 

Cambio tbdd per CBM 64. Ho 9 fante 
stira poco "Ghost buste* s M con una 
musica favolosa Telefonare dopo te 
20. Giounni Sebastiani - Via A- Loria, 
7 -00191 Roma Tel, 06/327120U 

Cambio software per C 16 e Plus. Tas- 
sali, veramente di ottima quahtà. Mau- 
ro Rosso - Via Calatafimi. 7/E - 20052 
Monza (MI) 

Vendo, cambio moltissimi gochi ed uti- 
le y per CBM 64 tra cui le udirne novite. 
Per intofmas-c.. telefonare a: Fumino 
enalotto - Via Laipacco, 283 - 33100 
uKT Td Q432/284563 


Costai ii tasi Club per utenti CBM 64. 
Tassa efi iscrizione L 15 000 annue. 
Potrei» accedei* ad una vasta libraria 
et software e molti altri vantaggi- Per 
maggiori informazioni letelonare ora 
pasti appura scriveteci . Masseria serie- 
ti Livio Guzzo Vis Palazzo. 5 64040 
Vaio Scalo (SA) Tei 089/396939 

Vendo per CBM 64 rw*i gort* a L 
1.500 cadauno Retadtrt Itela tetto 
nando oppure scrivendo Masseria se- 
nsi!. Enzo De Marco ■ Vte S, Baratta, 
71 - 84100 Sdemo Tel. 089/396939 


Cambio, vendo numerosi video pme* 
ed utÈty per C64 su cassette Per chi 
few interesaato st h scqi>sto. J prezzi 
d 10 prosati*™ 4 di L, 45 QQQ trattabili 
Per ricevere te teta rivistemi L- l.GOQm 
frane oboli. Annuncio sempra ratto 
Ondo Giaimetri • Vte Aw Makang 
70059 frani (BA) ■ Td. 0883/47471 

Vendo softwara di ogni tipo per CBM 
64. Invio Usta vati* a coloro che te 
ne hiedr ranno. Cerco altfcsmerSv Ma- 
rio Bros per CBM 64. Roberto Spanu 
Vte Dela Foce, 44V5 - 18100 Imperia 
Tel. 0183/2612) 

Compro per C64 programmi p*T copia 
Te giochi su nastro soltanto m a prezzi 
super convenienti Scriver» q telefona- 
re il sabato e domenica mattina a; Pie 
tro Borgogna Via Reuidiaico, 8Q/6 
10027 Mone alteri (IO) Tri. 6406728 

Vendo, causa partenza per 3 servizio 
mii(***, VIC 2Ò più espansione 3-8-16 
Kbytt. carmdge w Programmer » Aid", 
corso BASIC (voi 2 ). interfaccia per 
registratore. 10 cassette gioco, utilità, 
3 Sbri, tutto a L 250.000. Andrai Santi 
ra Vte Brioscia. 56 20141 Milano- Tel 
02 8466098 

Vendo, cambio giochi ed utiitits per 
CBM 64 Tehrfon* terra solo se re ere* 
«ti trizio Zanca VaMoraeGfcri,69 
- 28Q21 BorgcNTWfTD (NO) - t«L 
0322/83228 

Vendo e cambio soAvwe per VC 20. 
Indire sono presetele dii Supervic 

CW) Spedtie L 5 OÓOa benesi re. Ai» 
curato invio di software vario. Scrivere 
o telefonar*, Francesco Capezzoli - 
Via Domodossola, 106 2409) Baitips 
gite (SA) - Tri. 0828/28223 

Varali i mitili itetenprai par Hit ■ ante 
L 5.030 cadauno. Inviar* Ivta^ Grivan 
n Palunbo Viste Kennedy 75016 
Romanci) (MT) Tri. 751598 

Ceco per C64 programmi di utility * 
giochi. Inoltra cerco programmi specie 
te pagri e rotanti con orob^po, pagine 
con schermo diviso in 2 o in 4, Telrio 
nara or* serali. Bruno Gandoi ■ Vìa 
Cstennandrai, 1 - 14049 Mz» Monfer- 
rato (AT) ■ Tri. 0141/727216 

frr €64 compro, cambio, vendo soft- 
ware tu nastro e canridge. Inviar* te 
propria lata, rispondo a tulli. C*tco 
floppy disk drive 1541 se affare. Cesar* 
Storti Via Stazione, 25 27ÌQ0 Pavia 

Vendo VCS Atarì praticamcnie nuovo 
con joystick, paddi*, alnwntat&r*. 1 
cassetta omaggio a L 190.000, vendo 
anche cterarae c asseti 1 1 L 20 000 ca- 
dauni Telefonar* or* pesti Alonso Di 
Giampietro Va Dri Cacete. 11 28)00 
Novera Tel 0321/390125 

Vendo, cambio software par CBM 64 
su disco t cassetta, utility, gestione!, 
giochi, otir* 6Q0 programmi Magte 
Prati, Clone, Lhguard, Decathlon. 
Dritea Quest. Mr Mephteto, scc Mar 
coSchìio Vm Lucca. 36 20152 Miteno 
Tri- 02/4591526 


Vendo profanali praC64 . Tratto solo 
con MÀnno. Telefonare ora perii. Vtiv 
ccnaoArcti&acono PteitaGramed,?- 
201&4 Miteno Tri. 02/317676 

Commodore 64: vendo 100 progni mm 
in Imguagpo macchini a L 100.000, 
Masseria arateti. Gaudio Rampazzo - 
Va Rovigo, S/7 - 39100 Botano Tri. 
0471/37991 

Vendo VIC 20aL 130,000 e regate, echi 
lo acquata, 20 tedsogiochisu caawtta. 
Valentino Magri- Va Piemonte, 15 
20090 Segtanof MI) 

Compro.cambio vendo alni zioni * pro- 
grammi pra C64 a C16. Inviaicmi le 
vostre lati * proposi*. Annuncio tem- 
pra valido Gino Ugftetti- ViaStrambio, 
108 2701) Bririomeo (PV> - Tel 

0382/960804 

Vendo egra genera tl toftwan praConi' 
modora 64 ala su dace che su nastro fin 
Turbo Tape). Dispongo di oftrt 1SÒ0 
titol * sono in vendita a ante L. 3 000 
ciascuno con ulteriori ic ori ci per quanti 
telivi Rictadet* la Waa:LivianSt*fano 
Via Toscana, 13 - 10026 SaruenafTO) 
Tri. 011/9492987 

Vendo j^och come: Soccer, Paonan, 
Aìri*, Sta» Trek, Briscola^ scc, su cae 
ratta s/oKttalo per VIC 20 eC64- Sconti 
per acqueti ri blocco < ri più regalo 
Turbo tape. Cerco Drinkay Kong per 
C64 Scrivere a: Sebastiano Guasida - 
Via San Giovarmi, 25 9É0lOMri»(SR) 
Tri- 955106 

Vendo , cambio programnni per CBM 64 
a prezzi c he ira vergognoddire; etera 700 
gamas edutity . perinkirmazioniacrte*- 
reo tate fan arac* arasti rOterifrni- 
m Via Cefc , 329 48020 S. striano (RA) 
Tri. 573529 

Vendo e prezzo eoe tuonai* o cambio 
Software per CBM 64 ó tutti i generi. 
Se ròsi ami, rivtert la tu programmi a 
iuMl Annuncio sempre valido. EtrioTra- 
v* - ViaF . Corridoni.64 46 JOOManiova 
Tel 0376/350388 

Cerco dràptratamenta C64, solo con 
■ole, in buono stato « ed un prezzo 
modesto. Marco Bella ti Vte Progresso, 
6 460350stiglte(MN)Tai31027 

Vendo VIC 20 ri ottimo strio più 2 
cartucce, 8 casaatte contenenti altre 30 
riochi (Space Invadere, Fuc Man «d 
altri), manuale in natane a L 17000 
Irritati*, Marco BeUtiViaProgrerao. 
6 46035 Ostigli* (MN)- Tri- 3 1027 

Vendo WC 20 con la sua confezione 
originate completa di tutto più irtierfec- 
daperragsti'riora^paddesCornmodo- 
ra.vafte riviste ritVtC 20 e BASIC, wi 
p r o g rammi al prezzo si Tacciato d L 
140000, AftraRrievi atro Davo! - Vte 
Zacoofti. 24 - 42048 Rubiera (RE) Tri. 
0622/620379 

Compro espanatim* da 8 Kbyte pra 
VIC 20 ad un prezzo ragemevote. Scri- 
vale a: Marati™ Dendsna - Via Patina X 
Vsccta, 16 24100 Barbino 




CD 
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La biblioteca per ragazzi 


IL COMPUTER 

li atro, parta di giochi con l 


tota* 
in peri 

pHoa mi preciso, axne ti ri compu- 
ter i girne, come fi < produrre ire- 
magmi e suoni duranti I gioco i co- 
me ti (in penerei) e vincere 

0o4. om Pwt u ur*im 

Brian R&ffm S mah 

IMPARIAMO 
A PROGRAMMARE 

Il libre tornisce le conoscenze esseri- 
ròi per incominciare e programmare 
in BASIC su di un personal com- 
puter. 

M. ffJU Pa§. 44 Un §.$$$ 


PRIMI PASSI 
IN BASIC 

li libre propone l*pp rendimento del 
lingueggio BASIC tramite lo studio e 
esame dettagliato dì programmi già 

scritti. 

Cori. 0070 Pa§. 49 Urt 9,000 

Tony Fonar - tvor GuBd 

I ROBOT 


Jutfy Tritóni - B» Baonatì 

CONOSCERE 
IL PERSONAL 

Il atro spiega che co» sì putì tare 
con un personal computer, come $1 
usa e come funziona. 

fieri, oeoo Pa§, 4$ lire 9.000 

Lyon Mlring - fan Graham 

RIVOLUZIONE 

INFORMATICA 


ntagfcar* tu fotocopierei t tp*dirt m butta ctWvu a; 
GRUPPO EBTT0MALE JACKSON - Orditone Ubo - Vm ItoMUim. 12 - 20124 t 

CEDOLA DI COMMISSIONE LIBRARIA 
VOGLIATE SPEDIAMO 


a* copn 

Còdice 

Pieno Limivi» 

Prezzo totale 

























Totale 



□ Paghe rù contrattegno al pollino a premo indicato più L 3,000 per «Milributo 
Hw ipw di epedUfene. 

Condizioni di p egemonio con 

□ Allogo utegflo dona Banca 

t 

] Allego 

hi veglia ponile e voi In rettelo 


O Allega fotocopia del veraantento 
■ u c/c ri ilOSdaoa a mi Intanato 


Dopo una ripida panoramica su ette 
cosa può tare un robot, il litro pre- 
semi una sene & robot con funzioni 
particolari i robot i braccio, i robot 
operai, i robot nello spirò, etc. 
Affronta poi I problema di come un 
robot pud essere programmato e 
controllato di un computo* e di co- 
me praticamente si realizzi un robot. 

Ceri, 063D Fw§. 49 Ura lift 



Cognome 

«a 

Cap Otta 


Prm. 


LI I I I 1 I I I II I 


NUMERI, 
NON 

PAROLE. 

ATARI 130 XE * un grande persona! computer che, ad una enorme capacità di memoria, abbina una maggiore 
versatilità . Alari 1 BOXE non ha bisogno di molte parole per essere presentato, i suoi numeri partano da sdì. 

128KRAM 

ATAM 13QXE utilizza un microprocessore 6502C. 

Ha una memona di 1S8K RAM, 24K ROM (Sistema ope- 
rativo e linguaggio programmo* ione Basic). Tanta poten- 
za in più per un maggior numero di informazioni. 

4 CHIPS SPECIALI 

Sono Chips esclusivi Atori : GT1A - Per la visualizzazione 
yafica; POKEY - Generatore e controllo di suono, AN- 
TIC - Per la gestione dello schermo e di Input /Output; 

FREOOY - Sistema di controllo della memoria. 

256 COLORI 

ATARI f3QXE ha capacità grafiche nettamente superiori 
alla media: 11 topi di modi grafici; 256 colori (128 
visualizzati contemporaneamente); grafica 320 x 192 
ad alta risoluzione; 

ima visualizzazione di 40 colonne per 24 Irnee; 5 modi 
di testo Tutto quanto to serve per scatenare al meglio 

L 380*i 



la tua creatività, senza limiti di alcun tipo. 

4 CANAU SONORI 

Anche per le capacità sonore, Atarì 130XE rivela 
straordinarie e inaspettate possibilità: 4 canali sonori 
ìndipendenti su una gamma di 3 ottave e mezza. 

62 TASTI 

Una tastiera formidabile: 62 tasti, tasto Help e quattro 
tasti per funzioni speciali; caratteri intemazionali; 29 
tasto con funzione grafica Linguaggio di programma- 
zione Atari Basic insperato. 

41 CONFIGURAZIONI POSSIBIU 

Software e periferiche compatìbili con i computer* 
delta serie XL : Stampante a colori Atari 1020; 
stampante 'Letter Quairty* Atari 1027, Stampante ad 
aghi programmabile Atan 1029; Disk dm* Atari 1050 
(E possibile l'utilizzo di 4 unità in serie); Joystick e 
Super Controller. 

non 
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